Implement strict constructors, which will warn unkown constructor arguments

[gitmo/Mouse.git] / example / point.pl

diff --git a/example/point.pl b/example/point.pl
index d85df30..bb651e4 100644 (file)
--- 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();