[svn:mod_parrot] r499 - mod_parrot/trunk/languages/perl6/lib

Author: jhorwitz
Date: Fri Nov 21 15:57:24 2008
New Revision: 499

Modified:
   mod_parrot/trunk/languages/perl6/lib/mod_perl6.pm

Log:
call class method method w/o creating an object.


Modified: mod_parrot/trunk/languages/perl6/lib/mod_perl6.pm
==============================================================================
--- mod_parrot/trunk/languages/perl6/lib/mod_perl6.pm	(original)
+++ mod_parrot/trunk/languages/perl6/lib/mod_perl6.pm	Fri Nov 21 15:57:24 2008
@@ -89,10 +89,9 @@
     # conventions are different for methods so just run it here
     if ($method) {
         load($class);
-        # XXX need quotes, but works in tests without the "split" above
-        my $obj = "$class".new;
 	# XXX don't have subroutine interpolation, so we hardcode 'handler'
-        my $res = $obj.handler(|@args);
+        # XXX "split" does something to $class so it needs quotes here. hm.
+        my $res = "$class".handler(|@args);
         return $res;
     }