lib/Moose/Website/Resource/Templates/code/point.tt

   1 <code><span style="color:#000;">package</span> <span style="color:#900;">Point</span><span style="color:#000;">;</span>
   2 <span style="color:#000;">use</span> <span style="color:#900;">Moose</span><span style="color:#000;">;</span> <span style="color:#069;font-style:italic;"># automatically turns on strict and warnings</span>
   3
   4 <span style="color:#3A3;">has</span> <span style="color:#00a;">'</span><span style="color:#00a;">x</span><span style="color:#00a;">'</span> <span style="color:#000;">=&gt;</span> <span style="color:#000;">(</span><span style="color:#00a;">is</span> <span style="color:#000;">=&gt;</span> <span style="color:#00a;">'</span><span style="color:#00a;">rw</span><span style="color:#00a;">'</span><span style="color:#000;">,</span> <span style="color:#00a;">isa</span> <span style="color:#000;">=&gt;</span> <span style="color:#00a;">'</span><span style="color:#00a;">Int</span><span style="color:#00a;">'</span><span style="color:#000;">)</span><span style="color:#000;">;</span>
   5 <span style="color:#3A3;">has</span> <span style="color:#00a;">'</span><span style="color:#00a;">y</span><span style="color:#00a;">'</span> <span style="color:#000;">=&gt;</span> <span style="color:#000;">(</span><span style="color:#00a;">is</span> <span style="color:#000;">=&gt;</span> <span style="color:#00a;">'</span><span style="color:#00a;">rw</span><span style="color:#00a;">'</span><span style="color:#000;">,</span> <span style="color:#00a;">isa</span> <span style="color:#000;">=&gt;</span> <span style="color:#00a;">'</span><span style="color:#00a;">Int</span><span style="color:#00a;">'</span><span style="color:#000;">)</span><span style="color:#000;">;</span>
   6
   7 <span style="color:#000;">sub</span> <span style="color:#980;">clear</span> <span style="color:#000;">{</span>
   8     <span style="color:#000;">my</span> <span style="color:#080;">$self</span> <span style="color:#000;">=</span> <span style="color:#300;">shift</span><span style="color:#000;">;</span>
   9     <span style="color:#080;">$self</span><span style="color:#000;">-&gt;</span><span style="color:#980;">x</span><span style="color:#000;">(</span><span style="color:#f0f;">0</span><span style="color:#000;">)</span><span style="color:#000;">;</span>
  10     <span style="color:#080;">$self</span><span style="color:#000;">-&gt;</span><span style="color:#980;">y</span><span style="color:#000;">(</span><span style="color:#f0f;">0</span><span style="color:#000;">)</span><span style="color:#000;">;</span>
  11 <span style="color:#000;">}</span>
  12
  13 <span style="color:#000;">package</span> <span style="color:#900;">Point3D</span><span style="color:#000;">;</span>
  14 <span style="color:#000;">use</span> <span style="color:#900;">Moose</span><span style="color:#000;">;</span>
  15
  16 <span style="color:#3A3;">extends</span> <span style="color:#00a;">'</span><span style="color:#00a;">Point</span><span style="color:#00a;">'</span><span style="color:#000;">;</span>
  17
  18 <span style="color:#3A3;">has</span> <span style="color:#00a;">'</span><span style="color:#00a;">z</span><span style="color:#00a;">'</span> <span style="color:#000;">=&gt;</span> <span style="color:#000;">(</span><span style="color:#00a;">is</span> <span style="color:#000;">=&gt;</span> <span style="color:#00a;">'</span><span style="color:#00a;">rw</span><span style="color:#00a;">'</span><span style="color:#000;">,</span> <span style="color:#00a;">isa</span> <span style="color:#000;">=&gt;</span> <span style="color:#00a;">'</span><span style="color:#00a;">Int</span><span style="color:#00a;">'</span><span style="color:#000;">)</span><span style="color:#000;">;</span>
  19
  20 <span style="color:#3A3;">after</span> <span style="color:#00a;">'</span><span style="color:#00a;">clear</span><span style="color:#00a;">'</span> <span style="color:#000;">=&gt;</span> <span style="color:#000;">sub</span> <span style="color:#000;">{</span>
  21     <span style="color:#000;">my</span> <span style="color:#080;">$self</span> <span style="color:#000;">=</span> <span style="color:#300;">shift</span><span style="color:#000;">;</span>
  22     <span style="color:#080;">$self</span><span style="color:#000;">-&gt;</span><span style="color:#980;">z</span><span style="color:#000;">(</span><span style="color:#f0f;">0</span><span style="color:#000;">)</span><span style="color:#000;">;</span>
  23 <span style="color:#000;">}</span><span style="color:#000;">;</span></code>