use warnings;
use strict;

use Devel::Examine::Subs;

my $des = Devel::Examine::Subs->new(file => 'lib/Devel/Examine/Subs.pm');

my $subs = $des->all;

print "$_\n" for @$subs;

##</code><code>##

BEGIN
new
all
has
missing
lines
module
objects
search_replace
replace
inject_after
inject
remove
order
backup
add_functionality
engines
pre_procs
post_procs
run
valid_params
_cache
_cache_enabled
_cache_safe
_clean_config
_clean_core_config
_config
_file
_params
_read_file
_run_directory
_run_end
_write_file
_core
_pre_proc
_proc
_post_proc
_engine
_pod

##</code><code>##

use warnings;
use strict;

use Devel::Examine::Subs;

my $des = Devel::Examine::Subs->new(file => '.');

my $data = $des->all;

for my $file (keys %$data){
    print "$file:\n";
    for my $sub (@{ $data->{$file} }){
            print "\t$sub\n";
    }
}

##</code><code>##

t/test/files/sample.pm:
	one
	one_inner
	one_inner_two
	two
	three
	four
	function
	five
	six
	seven
	eight
examples/write_new_engine.pl:
	dumps
lib/Devel/Examine/Subs/Sub.pm:
	BEGIN
	new
	name
	start
	end
	line_count
	lines
	code
lib/Devel/Examine/Subs/Preprocessor.pm:
	BEGIN
	new
	_dt
	exists
	module
	inject
	replace
	remove
	_vim_placeholder