[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