[SP-pm] Correção...
André Garcia Carneiro
andre.garcia.carneir em terra.com.br
Sexta Novembro 3 03:52:09 PST 2006
Palavras do Monge Mestre Cervejeiro
package EncontroSocial;
use strict;
my $definicao = qq{Reunião informal de pessoas que geralmente trabalham ou se interessam por Perl que não tem
vida social e se utilizam de desculpas esfarrapadas com suas esposas para encher a cara no bar, jogar sinuca e
dar risada. De vez em quando, falamos em Perl.};
sub mais_uma_por_favor
{
my $qual_cerveja = shift;
$qual_cerveja = "Essa mesmo!" if(!$qual_cerveja);
my $caneca_cheia = enche_caneca($qual_cerveja);
return $caneca_cheia;
}
sub new
{
my $self = shift;
bless{$self};
return $self;
}
1;
--
André Garcia Carneiro
Developer(Perl/PHP)
Member of "São Paulo Perl Mongers" - http://sao-paulo.pm.org
Mais detalhes sobre a lista de discussão SaoPaulo-pm