File Coverage

blib/lib/Function/Interface/Info.pm
Criterion Covered Total %
statement 9 9 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod 3 3 100.0
total 17 17 100.0


line stmt bran cond sub pod time code
1             package Function::Interface::Info;
2              
3 11     11   165945 use v5.14.0;
  11         39  
4 11     11   76 use warnings;
  11         26  
  11         1393  
5              
6             our $VERSION = "0.04";
7              
8             sub new {
9 29     29 1 187 my ($class, %args) = @_;
10             bless {
11             package => $args{package},
12             functions => $args{functions},
13 29         193 } => $class;
14             }
15              
16 4     4 1 11375 sub package() { $_[0]->{package} }
17 31     31 1 849 sub functions() { $_[0]->{functions} }
18              
19             1;
20             __END__