File Coverage

blib/lib/Test/MockPackages/Returns.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 Test::MockPackages::Returns;
2 6     6   20345 use strict;
  6         7  
  6         160  
3 6     6   25 use warnings;
  6         7  
  6         131  
4 6     6   581 use utf8;
  6         16  
  6         26  
5              
6             our $VERSION = '1.00';
7              
8 6     6   247 use English qw(-no_match_vars);
  6         9  
  6         40  
9 6     6   2444 use Exporter qw(import);
  6         18  
  6         612  
10              
11             our @EXPORT_OK = qw(returns_code);
12              
13             sub returns_code(&) { ## no critic (Subroutines::ProhibitSubroutinePrototypes)
14 4     4 1 82331 my ( $coderef ) = @ARG;
15              
16 4         26 return bless $coderef, __PACKAGE__;
17             }
18              
19             1;
20              
21             __END__