The stupid question is the question not asked PerlMonks

by TheDamian (Priest)
 on Jun 01, 2004 at 18:58 UTC Need Help??

```class Shape {
has \$.x;
has \$.y;
method moveTo(\$newx, \$newy) {
\$.x = \$newx;
\$.y = \$newy;
}
method rMoveTo(\$newx, \$newy) {
.moveTo(\$.x + \$newx, \$.y + \$newy);
}
}

class Rectangle is Shape {
has \$.width is rw;
has \$.height is rw;
method draw() {
print "Drawing a Rectange at:(\$.x,\$.y), width \$.width, height
+\$.height\n";
}
}

class Circle is Shape {
method draw() {
}
}

@scribble = (Rectangle.new(x=>10, y=>20, width=>5, height->6), Circle.

for @scribble -> \$ashape {
\$ashape.draw;
\$ashape.rMoveTo(100, 100);
\$ashape.draw;
}

\$arectangle = Rectangle.new(x=>0, y=>0, width=>15, height=>15);
\$arectangle.width = 30;
\$arectangle.draw;

Create A New User
Chatterbox?
 [1nickt]: perl -e 'print 1.0' ... output '1'. [Lady_Aleena]: You could quote it. perl -e 'print "1.0"'>/c> returns 1.0 [Lady_Aleena]: perl -e 'my \$var = "1.0"; print \$var;' if it is in a variable also returns 1.0, though perl -e 'my \$var = 1.0; print \$var;' returns 1. [1nickt]: In my case I can simply pass sprintf '%.1f', 1.0 (to Types::Standard:: Int), but what if you didn;t know the precision of the number you were working with? Seems I must be missing something. Oh well, my test list is complete, mooving on ...

How do I use this? | Other CB clients
Other Users?
Others avoiding work at the Monastery: (11)
As of 2017-05-24 18:47 GMT
Sections?
Information?
Find Nodes?
Leftovers?
Voting Booth?
My favorite model of computation is ...

Results (186 votes). Check out past polls.