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;
Citando Jose Nilton <[email protected]>:
Estou fazendo desse modo:
http://www.angelfire.com/tx4/cus/shapes/perl.html
Mas gostaria de algo mais moderno.
Mas acho que não tem porque mudar né.
--
..............................................................................
*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
