… | |
… | |
1785 | RETVAL = newSVpv (resist_plus[atnr], 0); |
1785 | RETVAL = newSVpv (resist_plus[atnr], 0); |
1786 | else |
1786 | else |
1787 | XSRETURN_UNDEF; |
1787 | XSRETURN_UNDEF; |
1788 | OUTPUT: RETVAL |
1788 | OUTPUT: RETVAL |
1789 | |
1789 | |
|
|
1790 | MODULE = cf PACKAGE = cf::attachable |
|
|
1791 | |
1790 | int |
1792 | int |
1791 | _valid (SV *obj) |
1793 | valid (SV *obj) |
1792 | CODE: |
1794 | CODE: |
1793 | RETVAL = SvROK (obj) && mg_find (SvRV (obj), PERL_MAGIC_ext); |
1795 | RETVAL = SvROK (obj) && mg_find (SvRV (obj), PERL_MAGIC_ext); |
1794 | OUTPUT: |
1796 | OUTPUT: |
1795 | RETVAL |
1797 | RETVAL |
1796 | |
1798 | |