[SP-pm] Exportar configuração para outros modulos

[thiagoglauco at ticursos.net]

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)*
>