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