1package Saint; 2 3# `empty subclass' test 4 5use vars qw(@ISA); 6 7@ISA = qw(Person); 8 9sub stringify { 10 11 my $self = shift; 12 13 return "Saint $self->{firstname} $self->{name}"; 14 15} 16 171; 18