Select Code to Download

# code for this inspired by Devel::Symdump
sub _find_name_of_sub_in_pkg{
...

    die "failed to find name for StartRunmode code ref $ref in package
+ $pkg\n";
}

use strict;

...
sub foo : Tiger {
    print "pling.\n";
}