Muito bom mesmo Eden.
Em 7 de setembro de 2012 03:07, Eden Cardim <[email protected]> escreveu: > >>>>> "thiagoglauco" == thiagoglauco <[email protected]> writes: > > thiagoglauco> Com Moose seu pacote Shapes ficaria assim: > thiagoglauco> package Shapes; > thiagoglauco> use Moose; > > thiagoglauco> has x => ( isa => "Int", > thiagoglauco> reader => "get_x", > thiagoglauco> writer => "set_x" ); > > thiagoglauco> has y => ( isa => "Int", > thiagoglauco> reader => "get_y", > thiagoglauco> writer => "set_y" ); > > thiagoglauco> sub moveTo { > > thiagoglauco> my ($self, $deltax, $deltay) = @_; > thiagoglauco> $self->set_x( $self->get_x + $deltax ); > thiagoglauco> $self->set_y( $self->get_y + $deltay ); > > thiagoglauco> } > > -- .............................................................................. *Com Deus todas as coisas são possíveis* ::: LinuxPro<http://www.linuxpro.com.br> *"A qualidade nunca se obtém por acaso; ela é sempre o resultado do esforço inteligente." (John Ruskin) "A mente que se abre a uma nova ideia jamais volta ao seu tamanho original" (Albert Einstein)*
=begin disclaimer Sao Paulo Perl Mongers: http://sao-paulo.pm.org/ SaoPaulo-pm mailing list: [email protected] L<http://mail.pm.org/mailman/listinfo/saopaulo-pm> =end disclaimer
