Select Code to Download

#!/usr/bin/perl
package Node;
...
print "FROM FIELD: ";
print Dump($node->get_parent);
print "---\n";

TYPEMAP
Node *         NODE
...
NODE
    $arg = $var->sv;

NODE: SV = IV(0x7fcc7b8041b8) at 0x7fcc7b8041c8
  REFCNT = 1
...
---
destroying Node=SCALAR(0x7ff391803ce8) at ref.pl line 51.
destroying Node=SCALAR(0x7ff391803e98) at ref.pl line 51.