package Saint;
# `empty subclass' test
use vars qw(@ISA);
@ISA = qw(Person);
sub stringify {
my $self = shift;
return "Saint $self->{firstname} $self->{name}";
}
1;
package Saint;
# `empty subclass' test
use vars qw(@ISA);
@ISA = qw(Person);
sub stringify {
my $self = shift;
return "Saint $self->{firstname} $self->{name}";
}
1;