Select Code to Download

    package Foo;

...
    
    sub todo { shift->{todo} };
    sub done { shift->{done} };

    package Bar;
    use base qw(Foo);
...
            $from->{todo}--;
        };
    };

# Monitor the arguments of subroutines ...
my $monitor = monitor_arg
...
        warn "removed item not added to done list in $subroutine\n"
            if $removed > 0 && $removed != $done;
    };

use Carp;
use Storable qw(dclone);
...
    };
    return \@wrappers;
};

my $o = Bar->new;
$o->add;
...
$from->add;
my $to = Ni->new;
$to->naughty_transfer($from);

removed item not added to done list in Bar::naughty_remove
removed item not added to done list in Ni::naughty_transfer