<div dir="ltr">Tava lendo o manual, quando encontro o "O jeito SUPER de fazer as coisas", do outro jeito funciona mas desse não:<br><br>#!/usr/bin/perl<br><br><br><br>#Animal = Classe(Classe é no sentido de categoria), speak = método.<br>
<br>{package Animal;<br>sub speak {<br>my $class = shift;<br>print "O $class faz ", $class->som, "\n";<br>}<br>}<br><br>{package Rato;<br>my @ISA = qw(Animal);<br>sub som { "squeak" }<br>sub speak {<br>
my $class = shift;<br>$class->SUPER::speak;<br>}<br>}<br><br>Rato->speak;<br>-- <br>print "\x54\x68\x65\x20\x53\x69\x6c\x65\x6e\x74\x20\x47\x75\x61\x72\x64\x69\x61\x6e",$/<br>
</div>