--- a/_test/object.t	Fri Jul 17 13:30:46 2009 +0400
+++ b/_test/object.t	Mon Aug 10 17:39:08 2009 +0400
@@ -7,11 +7,11 @@
 
 sub CTOR {
     my ($this,%args) = @_;
-    print "CTOR Foo $args{Name}\n";
+    print "CTOR Foo says $args{Name}\n";
 }
 
 sub Hello {
-    print "Hello";
+    print "\tHello\n";
 }
 
 package Bar;
@@ -27,7 +27,4 @@
 
 my $obj = new Bar ( Name => 'Tom') ;
 
-Hello $obj;
-
-no strict 'refs';
-print "$_\n" foreach sort keys %{'Bar::'};
\ No newline at end of file
+Hello $obj;
\ No newline at end of file