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   16897 use strict;
  6         7  
  6         133  
3 6     6   17 use warnings;
  6         7  
  6         116  
4 6     6   485 use utf8;
  6         13  
  6         28  
5              
6             our $VERSION = '0.9';
7              
8 6     6   197 use English qw(-no_match_vars);
  6         10  
  6         24  
9 6     6   1881 use Exporter qw(import);
  6         8  
  6         492  
10              
11             our @EXPORT_OK = qw(returns_code);
12              
13             sub returns_code(&) { ## no critic (Subroutines::ProhibitSubroutinePrototypes)
14 3     3 1 67422 my ( $coderef ) = @ARG;
15              
16 3         13 return bless $coderef, __PACKAGE__;
17             }
18              
19             1;
20              
21             __END__