sub _dumpsub { my ($off,$sub) = @_; my $ini = $sub; $sub = $1 if $sub =~ /^\{\*(.*)\}$/; my $subref = defined $1 ? \&$sub : \&$ini; $subref = \&$subref; # Hard reference... my $gv = Devel::Peek::CvGV($subref) or return "CODE()"; '&' . *$gv{PACKAGE} . '::' . *$gv{NAME}; }
[download]