print "a Horse goes neigh!\n";
}
sub Sheep::speak {
- print "a Sheep goes baaaah!\n"
+ print "a Sheep goes baaaah!\n";
}
Cow::speak;
print "a Horse goes neigh!\n";
}
sub Sheep::speak {
- print "a Sheep goes baaaah!\n"
+ print "a Sheep goes baaaah!\n";
}
@pasture = qw(Cow Cow Horse Sheep Sheep);
sub sound { "moooo" }
sub speak {
my $class = shift;
- print "a $class goes ", $class->sound, "!\n"
+ print "a $class goes ", $class->sound, "!\n";
}
}
sub sound { "neigh" }
sub speak {
my $class = shift;
- print "a $class goes ", $class->sound, "!\n"
+ print "a $class goes ", $class->sound, "!\n";
}
}
{ package Animal;
sub speak {
my $class = shift;
- print "a $class goes ", $class->sound, "!\n"
+ print "a $class goes ", $class->sound, "!\n";
}
}
@Cow::ISA = qw(Animal);
+Or declare it as package global variable:
+
+ package Cow;
+ our @ISA = qw(Animal);
+
Or allow it as an implicitly named package variable:
package Cow;
Also note that the C<Animal> classname is now hardwired into the
subroutine selection. This is a mess if someone maintains the code,
-changing C<@ISA> for <Mouse> and didn't notice C<Animal> there in
+changing C<@ISA> for C<Mouse> and didn't notice C<Animal> there in
C<speak>. So, this is probably not the right way to go.
=head2 Starting the search from a different place
{ package Animal;
sub speak {
my $class = shift;
- print "a $class goes ", $class->sound, "!\n"
+ print "a $class goes ", $class->sound, "!\n";
}
}
{ package Horse;
{ package Animal;
sub speak {
my $class = shift;
- print "a $class goes ", $class->sound, "!\n"
+ print "a $class goes ", $class->sound, "!\n";
}
sub name {
my $self = shift;
All we need is for a method to detect if it is being called on a class
or called on an instance. The most straightforward way is with the
C<ref> operator. This returns a string (the classname) when used on a
-blessed reference, and C<undef> when used on a string (like a
+blessed reference, and an empty string when used on a string (like a
classname). Let's modify the C<name> method first to notice the change:
sub name {