File Coverage

blib/lib/Algorithm/SISort.pm
Criterion Covered Total %
statement 9 14 64.2
branch n/a
condition n/a
subroutine 3 5 60.0
pod 0 2 0.0
total 12 21 57.1


line stmt bran cond sub pod time code
1             package Algorithm::SISort;
2              
3             require 5.005_62;
4 1     1   48908 use strict;
  1         2  
  1         47  
5 1     1   7 use warnings;
  1         2  
  1         45  
6 1     1   2223 use Inline C => 'DATA', NAME => 'Algorithm::SISort', VERSION => '0.14';
  1         54951  
  1         10  
7              
8             require Exporter;
9              
10             our @ISA = qw(Exporter);
11              
12             our %EXPORT_TAGS = ( 'all' => [ qw(
13             Sort
14             Sort_inplace
15             ) ] );
16              
17             our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );
18              
19             our @EXPORT = qw( );
20              
21             our $VERSION = '0.14';
22              
23             sub Sort(&@) {
24 0     0 0   my $callback=shift;
25 0           _sort($callback, \@_);
26 0           return @_;
27             }
28              
29             sub Sort_inplace(&\@) {
30 0     0 0   my $callback=shift;
31 0           return _sort($callback, $_[0]);
32             }
33              
34             1;
35              
36             __DATA__