Два класса в одном модуле

[dymka]

Возможен ли сабж? Или создавать два модуля?

[ююю]

Ну с точки зрения банальной ЕРУНДИЦИИ
#CalBad.pm
package CalBad;
sub new{
   my $self={};
   bless($self);
   return $self;
}
sub plus {
   shift;
   $_[0]+$_[1];
}
package CalPlus;
sub new{
   my $self={};
   bless($self);
   return $self;
}
sub plus {
   shift;
   $_[0]-$_[1];
}

1;
#END CalBad.pm
_________________________________________

#!perl
#tufta.pl
use CalBad;
$obj=CalBad->new();
print $obj->plus(1,2);
print "\\t class CalBad\\n";

$obj=CalPlus->new();
print $obj->plus(1,2);
print "\\t class CalPlus\\n";

PS только зачем это нужно

[dymka]

нужно описать класс-элемент и другой класс который управляет этими элементами... сам по себе класс-элемент не несет ценности, но нужен из соображений абстракции.
я привык так делать в ООП языках...
биг тхенкс.