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 (@{ $data->{$file} }){
        print "\t$_\n";
    }
}

##</code><code>##

lib/Test/BrewBuild/Git.pm
	new
	git
	link
	name
	clone
	pull
lib/Test/BrewBuild/BrewCommands.pm
	new
	brew
	info
	installed
	using
	available
	install
	remove
	is_win
	_legacy_perls

##</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";

    my $subs = $des->objects(file => $file);

    for my $sub (@$subs){
        print "\t" . $sub->name ."\n";
        print "\t\t lines: " . $sub->line_count ."\n";
        print "\t\t start: " . $sub->start ."\n";
        print "\t\t end:   " . $sub->end . "\n";
    }
}

##</code><code>##

lib/Test/BrewBuild/Dispatch.pm
	_fork
		 lines: 111
		 start: 146
		 end:   256
	new
		 lines: 21
		 start: 21
		 end:   41
	dispatch
		 lines: 87
		 start: 42
		 end:   128
	_config
		 lines: 17
		 start: 129
		 end:   145
lib/Test/BrewBuild/Git.pm
	name
		 lines: 6
		 start: 34
		 end:   39
	git
		 lines: 17
		 start: 12
		 end:   28