File Coverage

lib/Sub/Exporter/Simple.pm
Criterion Covered Total %
statement 12 12 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod n/a
total 17 17 100.0


line stmt bran cond sub pod time code
1 1     1   1788 use strict;
  1         2  
  1         26  
2 1     1   5 use warnings;
  1         1  
  1         42  
3              
4             package Sub::Exporter::Simple;
5             BEGIN {
6 1     1   33 $Sub::Exporter::Simple::VERSION = '1.103210';
7             }
8              
9             # ABSTRACT: just export some subs
10              
11 1     1   1006 use Sub::Exporter 'setup_exporter';
  1         13430  
  1         6  
12              
13             sub import {
14 1     1   8 my ( $self, @subs ) = @_;
15 1         5 return setup_exporter( { exports => [ @subs ], into_level => 1 } );
16             }
17              
18             1;
19              
20              
21             __END__