File Coverage

blib/lib/Sort/Key/Maker.pm
Criterion Covered Total %
statement 22 22 100.0
branch n/a
condition n/a
subroutine 6 6 100.0
pod n/a
total 28 28 100.0


line stmt bran cond sub pod time code
1             package Sort::Key::Maker;
2              
3             our $VERSION = '0.02';
4              
5 2     2   30186 use warnings;
  2         6  
  2         63  
6 2     2   8 use strict;
  2         4  
  2         66  
7              
8 2     2   472 use Sort::Key qw(multikeysorter multikeysorter_inplace);
  2         4  
  2         144  
9              
10 2     2   11 use Carp;
  2         3  
  2         185  
11             our @CARP_NOT = qw(Sort::Key);
12              
13             sub import {
14 11     11   40 my $class = shift;
15 11         14 my $name = shift;
16 11         21 my $caller = caller;
17              
18 2     2   10 no strict 'refs';
  2         3  
  2         211  
19 11         35 *{"${caller}::${name}"} = multikeysorter @_;
  11         70  
20 11         37 *{"${caller}::${name}_inplace"} = multikeysorter_inplace @_;
  11         2857  
21             }
22              
23             1;
24              
25             __END__