X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=example%2Fpoint.pl;h=bb651e4a1855b61936ddab4542fa717b10c7b371;hb=785080642e584152fc8d7e87d77f11c7483d3f14;hp=d85df30bc4db144e73e5d8e4aeb002af14046a1a;hpb=11c0f905bc3cdaa68afd53263b90e3b0e1ce4e5c;p=gitmo%2FMouse.git

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();