Muito bom mesmo  Eden.<br><br><br><br><div class="gmail_quote">Em 7 de setembro de 2012 03:07, Eden Cardim <span dir="ltr"><<a href="mailto:eden@insoli.de" target="_blank">eden@insoli.de</a>></span> escreveu:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
>>>>> "thiagoglauco" == thiagoglauco  <<a href="mailto:thiagoglauco@ticursos.net">thiagoglauco@ticursos.net</a>> writes:<br>
<br>
    thiagoglauco> Com Moose seu pacote Shapes ficaria assim:<br>
    thiagoglauco> package Shapes;<br>
    thiagoglauco> use Moose;<br>
<br>
    thiagoglauco> has x => ( isa => "Int",<br>
    thiagoglauco>          reader => "get_x",<br>
    thiagoglauco>          writer => "set_x" );<br>
<br>
    thiagoglauco> has y => ( isa => "Int",<br>
    thiagoglauco>          reader => "get_y",<br>
    thiagoglauco>          writer => "set_y" );<br>
<br>
    thiagoglauco> sub moveTo {<br>
<br>
    thiagoglauco>     my ($self, $deltax, $deltay) = @_;<br>
    thiagoglauco>     $self->set_x( $self->get_x + $deltax );<br>
    thiagoglauco>     $self->set_y( $self->get_y + $deltay );<br>
<br>
    thiagoglauco> }<br>
<br></blockquote></div><br clear="all"><br>-- <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>