Select Code to Download

use Devel::Examine::Subs;

...
                           file => $dir,
                           regex => 1,
                        });

$des->search_replace({
                    exclude => ['one', 'three'],
...
                    replace => 'new_template.tpl',
                    extensions => ['pm'],
                 });

my @code = <DATA>;

...
    print Dumper $self;
    exit;
}

my $des = Devel::Examine::Subs->new({
                                  file => 'file.pm',
                                  cache => 1,
                               });

my $objects_aref = $des->objects();

for my $sub (@$objects_aref){

...
        print "\n";
    }
}

# dir search returns an href. key is the filename of
# the file the subs were found in, and the values are the
...
        ...
    }
}

my $aref = $des->all();

my $aref = $des->has({search => 'this'});
my $aref = $des->missing({search => 'this'});

my $files = $des->all({file => 'dir'});

...
    }
    print "\n";
}