Select Code to Download

monkey_patch $dyn_pkg, 'can', sub {
    my ($self, $method, @rest) = @_;
...
    no warnings 'once';
    my $h = do { no strict 'refs'; *{"${dyn_pkg}::${method}"}{CODE} };
    return $h && $h eq $can ? undef : $can;