<pre class="example" style="color: #DDDDDD; background-color: #272822; border-radius: 5px 5px 5px 5px; font-family: courier,monospace; font-size: 0.9em; line-height: 1.3em; margin-bottom: 1.5em; overflow: auto; padding: 1.2em;">>>>>> "TG" == thiagoglauco-BWYn5i82JSrk1uMJSBkQmQ  writes:
</pre>


<pre class="example" style="color: #DDDDDD; background-color: #272822; border-radius: 5px 5px 5px 5px; font-family: courier,monospace; font-size: 0.9em; line-height: 1.3em; margin-bottom: 1.5em; overflow: auto; padding: 1.2em;">TG> Com Moose seu pacote Shapes ficaria assim:
</pre>



<pre class="src src-perl" style="color: #DDDDDD; background-color: #272822; border-radius: 5px 5px 5px 5px; font-family: courier,monospace; font-size: 0.9em; line-height: 1.3em; margin-bottom: 1.5em; overflow: auto; padding: 1.2em;"><span style="color: #67D9F0;">package</span> <span style="color: #A6E22E; font-weight: bold;">Shapes</span>;
<span style="color: #67D9F0;">use</span> <span style="color: #A6E22E; font-weight: bold;">Moose</span>;

has <span style="color: #E6DB74;">x</span> => ( <span style="color: #E6DB74;">isa</span> => <span style="color: #E6DB74;">"Int"</span>,
reader => <span style="color: #E6DB74;">"get_x"</span>,
writer => <span style="color: #E6DB74;">"set_x"</span> );

has <span style="color: #E6DB74;">y</span> => ( <span style="color: #E6DB74;">isa</span> => <span style="color: #E6DB74;">"Int"</span>,
reader => <span style="color: #E6DB74;">"get_y"</span>,
writer => <span style="color: #E6DB74;">"set_y"</span> );

<span style="color: #67D9F0;">sub</span> <span style="color: #A6E22E; font-weight: bold;">moveTo</span> {

<span style="color: #67D9F0;">my</span> (<span style="color: #FA2573;">$self</span>, <span style="color: #FA2573;">$deltax</span>, <span style="color: #FA2573;">$deltay</span>) = <span style="color: #70A5FF;">@_</span>;
<span style="color: #FA2573;">$self</span>->set_x( <span style="color: #FA2573;">$self</span>->get_x + <span style="color: #FA2573;">$deltax</span> );
<span style="color: #FA2573;">$self</span>->set_y( <span style="color: #FA2573;">$self</span>->get_y + <span style="color: #FA2573;">$deltay</span> );

}

1;
</pre>



<div id="outline-container-1" class="outline-2" style="color: #333333; width: 100%;">
<h2 id="sec-1">eu faria assim:</h2>
<div class="outline-text-2" id="text-1">


<p><br/>
<pre class="src src-perl" style="color: #DDDDDD; background-color: #272822; border-radius: 5px 5px 5px 5px; font-family: courier,monospace; font-size: 0.9em; line-height: 1.3em; margin-bottom: 1.5em; overflow: auto; padding: 1.2em;"><span style="color: #67D9F0;">package</span> <span style="color: #A6E22E; font-weight: bold;">Shapes</span>;
<span style="color: #67D9F0;">use</span> <span style="color: #A6E22E; font-weight: bold;">Moose</span>;

has <span style="color: #E6DB74;">x</span> => ( <span style="color: #E6DB74;">isa</span> => <span style="color: #E6DB74;">"Int"</span>,
reader => <span style="color: #E6DB74;">"get_x"</span>,
writer => <span style="color: #E6DB74;">"set_x"</span> );

has <span style="color: #E6DB74;">y</span> => ( <span style="color: #E6DB74;">isa</span> => <span style="color: #E6DB74;">"Int"</span>,
reader => <span style="color: #E6DB74;">"get_y"</span>,
writer => <span style="color: #E6DB74;">"set_y"</span> );

<span style="color: #67D9F0;">sub</span> <span style="color: #A6E22E; font-weight: bold;">moveTo</span> {

<span style="color: #67D9F0;">my</span> (<span style="color: #FA2573;">$self</span>, <span style="color: #FA2573;">$deltax</span>, <span style="color: #FA2573;">$deltay</span>) = <span style="color: #70A5FF;">@_</span>;
<span style="color: #FA2573;">$self</span>->set_x( <span style="color: #FA2573;">$self</span>->get_x + <span style="color: #FA2573;">$deltax</span> );
<span style="color: #FA2573;">$self</span>->set_y( <span style="color: #FA2573;">$self</span>->get_y + <span style="color: #FA2573;">$deltay</span> );

}

1;
</pre>

</p></div>
</div>