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