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   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__