Select Code to Download

use warnings;
use strict;
...
        print "\t$sub\n";
    }
}

lib/Mock/Sub/Child.pm:
    new
...
    mocked_state
    DESTROY
    __end

use warnings;
use strict;
...
    #say "\tsub code:";
    #say "\t\t$_" for @{ $sub->code };
}

import
    start line:   14
...
mock
    start line:   27
    end line:     61

use warnings;
use strict;
...
my $subs = $des->all;

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

BEGIN
_sub_names
...
_generate_entry
_levels
_log_only