File Coverage

blib/lib/JIP/Mock.pm
Criterion Covered Total %
statement 17 17 100.0
branch n/a
condition n/a
subroutine 6 6 100.0
pod 1 1 100.0
total 24 24 100.0


line stmt bran cond sub pod time code
1             package JIP::Mock;
2              
3 1     1   72514 use strict;
  1         2  
  1         29  
4 1     1   4 use warnings;
  1         2  
  1         27  
5              
6 1     1   5 use Exporter qw(import);
  1         1  
  1         35  
7 1     1   5 use English qw(-no_match_vars);
  1         3  
  1         4  
8              
9 1     1   813 use JIP::Mock::Control;
  1         2  
  1         104  
10              
11             our $VERSION = 'v0.0.2';
12              
13             our @EXPORT_OK = qw(take_control);
14              
15             sub take_control {
16 2     2 1 9009 my ( $package, %args ) = @ARG;
17              
18 2         11 return JIP::Mock::Control->new(
19             package => $package,
20             %args,
21             );
22             }
23              
24             1;
25              
26             __END__