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   30417 use strict;
  6         9  
  6         176  
3 6     6   24 use warnings;
  6         8  
  6         160  
4 6     6   806 use utf8;
  6         24  
  6         29  
5              
6             our $VERSION = '1.00';
7              
8 6     6   275 use English qw(-no_match_vars);
  6         8  
  6         37  
9 6     6   2484 use Exporter qw(import);
  6         10  
  6         724  
10              
11             our @EXPORT_OK = qw(returns_code);
12              
13             sub returns_code(&) { ## no critic (Subroutines::ProhibitSubroutinePrototypes)
14 4     4 1 480 my ( $coderef ) = @ARG;
15              
16 4         23 return bless $coderef, __PACKAGE__;
17             }
18              
19             1;
20              
21             __END__