# obtain CODEref info
sub coderef_info {
    my ($coderef) = @_;
    return () unless UNIVERSAL::isa($coderef, "CODE");
    require B;
    require B::Deparse;
    my $cv = B::svref_2object($coderef);
    my $gv = $cv->GV;
    return $gv->STASH->NAME,
           $gv->NAME,
           $gv->FILE,
           $cv->START->line,
           B::Deparse->new->coderef2text($coderef);
}

use Data::Dumper;
print Dumper(coderef_info(\&addem));