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

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