Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl
package Node; use strict; use warnings;
...
print "FROM FIELD: ";
print Dump($node->get_parent);
print "---\n";
  2. or download this
    TYPEMAP
const char *    T_PV
...
O_OBJECT
        sv_setref_pv( $arg, (char *)CLASS, (void*)$var );
  3. or download this
    C:\test>Node.pl
NODE: SV = RV(0x35f17f0) at 0x35f17e0
...
---
destroying Node=SCALAR(0x3787a00) at C:\test\Node.pl line 41.