>>>>> "TG" == thiagoglauco-BWYn5i82JSrk1uMJSBkQmQ writes:
TG> 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;eu faria 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;=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
