use strict;
use warnings;

use 5.10.0;

use Devel::Examine::Subs;

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

my $subs = $des->objects;

for my $sub (@$subs){
    say $sub->name;
    say "------";
    say $_ for @{ $sub->code };
    say "\n";
}