Select Code to Download

sub some_event {
    my $cpp_obj = shift; # It's an arbitrary time later.  We have no g
+uaranty
...
    my $event = sub { some_event($cpp_obj) };
    Scheduler::new_event($time + 10, $event);
}

package Whatever;

...
$a->blah;
$$a = undef; # I really want to undefine ALL references to Whatever=SC
+ALAR(0x9742b30)
$b->blah; # This should die.