Beefy Boxes and Bandwidth Generously Provided by pair Networks
Think about Loose Coupling
 
PerlMonks  

TheDamian's scratchpad

by TheDamian (Vicar)
on Jun 01, 2004 at 18:58 UTC ( [id://358396] : scratchpad . print w/replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    class Shape {
        has $.x;
    ...
    $arectangle = Rectangle.new(x=>0, y=>0, width=>15, height=>15);
    $arectangle.width = 30;
    $arectangle.draw;