blib/lib/Sub/Meta/Finder/Default.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
statement | 15 | 15 | 100.0 |
branch | 2 | 2 | 100.0 |
condition | n/a | ||
subroutine | 5 | 5 | 100.0 |
pod | 1 | 1 | 100.0 |
total | 23 | 23 | 100.0 |
line | stmt | bran | cond | sub | pod | time | code |
---|---|---|---|---|---|---|---|
1 | package Sub::Meta::Finder::Default; | ||||||
2 | 4 | 4 | 2106 | use strict; | |||
4 | 17 | ||||||
4 | 119 | ||||||
3 | 4 | 4 | 22 | use warnings; | |||
4 | 8 | ||||||
4 | 90 | ||||||
4 | |||||||
5 | 4 | 4 | 29 | use Scalar::Util (); | |||
4 | 9 | ||||||
4 | 73 | ||||||
6 | 4 | 4 | 647 | use Types::Standard qw(Ref); | |||
4 | 99052 | ||||||
4 | 73 | ||||||
7 | |||||||
8 | my $Callable = Ref['CODE']; | ||||||
9 | |||||||
10 | sub find_materials { | ||||||
11 | 8 | 8 | 1 | 5992 | my $sub = shift; | ||
12 | |||||||
13 | 8 | 100 | 29 | return unless $Callable->check($sub); | |||
14 | |||||||
15 | return { | ||||||
16 | 5 | 72 | sub => $sub, | ||||
17 | } | ||||||
18 | } | ||||||
19 | |||||||
20 | 1; | ||||||
21 | __END__ |