From: gfx Date: Tue, 9 Feb 2010 06:03:25 +0000 (+0900) Subject: Update example/point.pl X-Git-Tag: 0.50_01~16 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=31e71b650102441dee8adb661b7ed808b8f4fd93;p=gitmo%2FMouse.git Update example/point.pl --- diff --git a/example/point.pl b/example/point.pl index d85df30..bb651e4 100644 --- a/example/point.pl +++ b/example/point.pl @@ -34,3 +34,7 @@ my $point3d = Point3D->new(x => 5, y => 42, z => -5); print "point1: ", $point1->dump(); print "point2: ", $point2->dump(); print "point3: ", $point3d->dump(); + +print "point3d->clear()\n"; +$point3d->clear(); +print "point3: ", $point3d->dump();