sub DESTROY { my $obj = $_[0]; print "Destroying R reference object `", $obj->{name}, "'\n"; R::deleteRReference($_[0]); 1; }