Select Code to Download

SV * _copy( SV * arg_obj, SV * second, SV * third ) {
     Number * num_obj;
...
     printf( "_set::%p\n", arg_obj );

...

Finished Build Compile Stage

...
113
Destroying ...... destroyed
Destroying ...... destroyed

$$num1 = Grief::new( 113 );
$num2 = $num1; # Assign using _copy( )
...
print _get_val( $num2 ),"\n", _get_val( $num3 ), "\n";
__END__