Здравствуйте.
Благодарю за интерес к моей теме.
Что-то не выходит.
Если вызывать сразу модуль person.pm из start.pl – то всё работает, а как только начинаю наследоваться в employee.pm говорит Compilation failed in require at start.pl line 5.
А когда напрямую запускаю employee.pm то там говорит Global symbol "@ISA" requires explicit package name at employee.pm line 6.
Вот код start.pl:
#!/usr/bin/perl -w
use strict;
use lib qw( info );
use info::employee;
info\\ employee.pm
package employee;
use strict;
use lib qw(.);
use person;
@ISA=("person");
1;
info\\ person.pm
package person;
use strict;
sub new
{
my $class=shift;
my $self={};
return bless($self, $class);
}
sub name
{
my $self=shift;
$self->{NAME}=shift if @_;
return $self->{NAME};
}
sub age
{
my $self=shift;
$self->{AGE}=shift if @_;
return $self->{AGE};
}
1;
Может быть у вас есть какой ни будь рабочий пример - может быть я что-то не дописываю где-то.
washik@inbox.ru