Select Code to Download

  # Find all the named subroutines
  my @subs = $Document->find( 
        sub { $_[1]->isa('PPI::Statement::Sub') and $_[1]->name }
        );

my @subs;

...
                         push @subs, $_[1]->name();
                     }
                 });