ANTICHAT — форум по информационной безопасности, OSINT и технологиям

package Hourly; 
 use Employee;  
our @ISA = qw(Employee); 
 sub new  
{ 
 	my $object = shift();
  	my $class = ref($object) || $object;
  	my $self = $class->SUPER::new();
  	$self->{rate} = undef;
  	bless($self, $class);
  	return $self;  
}    
sub rate { Тут реализация метода}  
1;

Can't locate object method "rate" via package Employee at __ line __

package EmployeeClosure;   
sub new  
{
  	my $object = shift();
  	my $class = ref($object) || $object;
  	my $employee = {firstname => shift(), lastname => shift()};
  	my $hireDay = new Date;
  	if ($_[0]) {
  		my ($month, $day, $year) = split(/\//, $_[0]);
  		$hireDay->day($day);
  		$hireDay->month($month);
  		$hireDay->year($year);
  	}
            my $self = sub {
  				my $field = shift();
  				$employee->{$field} = shift() if (@_);
  				return $employee->($field);
  				};
  	bless ($self, $class);
  	return $self;  
}

Not a CODE reference at __ line 22; ( это строка return $employee->($field);)

...
print $answer->header('server'); # Выводим поле Server из заголовка
print "\n============================\n";