[SP-pm] O jeito SUPER de fazer as coisas
Daniel de Oliveira Mantovani
daniel.oliveira.mantovani at gmail.com
Sat Oct 11 15:54:59 PDT 2008
Tava lendo o manual, quando encontro o "O jeito SUPER de fazer as coisas",
do outro jeito funciona mas desse não:
#!/usr/bin/perl
#Animal = Classe(Classe é no sentido de categoria), speak = método.
{package Animal;
sub speak {
my $class = shift;
print "O $class faz ", $class->som, "\n";
}
}
{package Rato;
my @ISA = qw(Animal);
sub som { "squeak" }
sub speak {
my $class = shift;
$class->SUPER::speak;
}
}
Rato->speak;
--
print
"\x54\x68\x65\x20\x53\x69\x6c\x65\x6e\x74\x20\x47\x75\x61\x72\x64\x69\x61\x6e",$/
-------------- Pr?xima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20081011/97b9e305/attachment.html>
More information about the SaoPaulo-pm
mailing list