File Coverage

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   1875 use strict;
  4         9  
  4         109  
3 4     4   19 use warnings;
  4         8  
  4         88  
4              
5 4     4   20 use Scalar::Util ();
  4         8  
  4         64  
6 4     4   538 use Types::Standard qw(Ref);
  4         89814  
  4         58  
7              
8             my $Callable = Ref['CODE'];
9              
10             sub find_materials {
11 8     8 1 5761 my $sub = shift;
12              
13 8 100       31 return unless $Callable->check($sub);
14              
15             return {
16 5         57 sub => $sub,
17             }
18             }
19              
20             1;
21             __END__