Select Code to Download

sub _dumpsub {
  my ($off,$sub) = @_;
...
  my $gv = Devel::Peek::CvGV($subref) or return "CODE()";
  '&' . *$gv{PACKAGE} . '::' . *$gv{NAME};
}