Com o Moo é quase a mesma coisa, já até fiz um outro conf com o Moo,
Em 6 de setembro de 2012 13:48, <[email protected]> escreveu: > Com Moose seu pacote Shapes ficaria assim: > > package Shapes; > use Moose; > > has x => ( isa => "Int", > reader => "get_x", > writer => "set_x" ); > > has y => ( isa => "Int", > reader => "get_y", > writer => "set_y" ); > > sub moveTo { > > my ($self, $deltax, $deltay) = @_; > $self->set_x( $self->get_x + $deltax ); > $self->set_y( $self->get_y + $deltay ); > > } > > 1; > > > -- .............................................................................. *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
