<br>Com o Moo é quase a mesma coisa, já até fiz um outro conf com o Moo,<br><br><br><br><div class="gmail_quote">Em 6 de setembro de 2012 13:48,  <span dir="ltr"><<a href="mailto:thiagoglauco@ticursos.net" target="_blank">thiagoglauco@ticursos.net</a>></span> escreveu:<br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">Com Moose seu pacote Shapes ficaria assim:<br>
<br>
package Shapes;<br>
use Moose;<br>
<br>
has x => ( isa => "Int",<br>
           reader => "get_x",<br>
           writer => "set_x" );<br>
<br>
has y => ( isa => "Int",<br>
           reader => "get_y",<br>
           writer => "set_y" );<br>
<br>
sub moveTo {<br>
<br>
    my ($self, $deltax, $deltay) = @_;<br>
    $self->set_x( $self->get_x + $deltax );<br>
    $self->set_y( $self->get_y + $deltay );<br>
<br>
}<br>
<br>
1;<br>
<br>
<br></blockquote></div>-- <br>..............................................................................<br><b>Com Deus todas as coisas são possíveis</b> ::: <a href="http://www.linuxpro.com.br" target="_blank">LinuxPro</a><br>
<br><i><font size="1">"A qualidade nunca se obtém por acaso; ela é sempre o resultado do esforço inteligente." (John Ruskin)<br>"A mente que se abre a uma nova ideia jamais volta ao seu tamanho original" (Albert Einstein)</font></i><br>
<br>