[SP-pm] Exportar configuração para outros modulos
thiagoglauco at ticursos.net
thiagoglauco at ticursos.net
Thu Sep 6 09:48:59 PDT 2012
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 <jniltinho em gmail.com>:
> 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)*
>
More information about the SaoPaulo-pm
mailing list