Forum Webscript.Ru

Программирование => Perl => Тема начата: dymka от 27 Августа 2002, 19:43:24

Название: Два класса в одном модуле
Отправлено: dymka от 27 Августа 2002, 19:43:24

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

Название: Два класса в одном модуле
Отправлено: ююю от 27 Августа 2002, 21:36:18

Ну с точки зрения банальной ЕРУНДИЦИИ
#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 от 29 Августа 2002, 09:08:55

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