You are viewing a plain text version of this content. The canonical link for it is here.

Posted to commits@lucy.apache.org by nw...@apache.org on 2012/03/27 22:35:13 UTC

[lucy-commits] svn commit: r1306009 - /lucy/trunk/clownfish/perl/lib/Clownfish/CFC.xs

Author: nwellnhof
Date: Tue Mar 27 20:35:12 2012
New Revision: 1306009

URL: http://svn.apache.org/viewvc?rev=1306009&view=rev
Log:
Bindings for CFCClass#included

Modified:
    lucy/trunk/clownfish/perl/lib/Clownfish/CFC.xs

Modified: lucy/trunk/clownfish/perl/lib/Clownfish/CFC.xs
URL: http://svn.apache.org/viewvc/lucy/trunk/clownfish/perl/lib/Clownfish/CFC.xs?rev=1306009&r1=1306008&r2=1306009&view=diff
==============================================================================
--- lucy/trunk/clownfish/perl/lib/Clownfish/CFC.xs (original)
+++ lucy/trunk/clownfish/perl/lib/Clownfish/CFC.xs Tue Mar 27 20:35:12 2012
@@ -290,6 +290,7 @@ ALIAS:
     fresh_methods         = 44
     fresh_member_vars     = 46
     privacy_symbol        = 48
+    included              = 50
 PPCODE:
 {
     START_SET_OR_GET_SWITCH
@@ -409,6 +410,9 @@ PPCODE:
                 retval = value ? newSVpvn(value, strlen(value)) : newSV(0);
             }
             break;
+        case 50:
+            retval = newSViv(CFCClass_included(self));
+            break;
     END_SET_OR_GET_SWITCH
 }