[svn:parrot] r29845 - trunk/languages/perl6/src/classes

[jonathan@xxxxxxxxxxxx]

Author: jonathan
Date: Tue Jul 29 07:43:18 2008
New Revision: 29845

Modified:
   trunk/languages/perl6/src/classes/Object.pir

Log:
[rakudo] Implement get_bool vtable method in Object, such that it tests 
definedness. This means things like 'ok Foo.new' used in some spectests can 
work.

Modified: trunk/languages/perl6/src/classes/Object.pir
==============================================================================
--- trunk/languages/perl6/src/classes/Object.pir        (original)
+++ trunk/languages/perl6/src/classes/Object.pir        Tue Jul 29 07:43:18 2008
@@ -304,6 +304,17 @@
  .return 'prefix:?'(self)
 .end
 
+=item get_bool (vtable)
+
+Returns true if the object is defined, false otherwise.
+
+=cut
+
+.sub '' :vtable('get_bool')
+    $I0 = 'defined'(self)
+    .return ($I0)
+.end
+
 =item print()
 
 =item say()