Re^3: How to identify the package of a subroutine given only a reference to it

But beware!

#!/usr/bin/perl
use warnings;
use strict;

{   package Local;

    sub My::frob {
        print __PACKAGE__
    }
}

My::frob();  # Local
[download]

map{substr$_->[0],$_->[1]||0,1}[\*||{},3],[[]],[ref qr-1,-,-1],[{}],[sub{}^*ARGV,3]

Comment on Re^3: How to identify the package of a subroutine given only a reference to it Select or Download Code