File Coverage

blib/lib/Text/Prefix/XS.pm
Criterion Covered Total %
statement 12 16 75.0
branch 0 2 0.0
condition n/a
subroutine 4 5 80.0
pod n/a
total 16 23 69.5


line stmt bran cond sub pod time code
1             package Text::Prefix::XS;
2 2     2   28545 use XSLoader;
  2         3  
  2         46  
3 2     2   6 use strict;
  2         2  
  2         36  
4 2     2   5 use warnings;
  2         5  
  2         94  
5              
6             our $VERSION = '0.02-TRIAL';
7              
8             XSLoader::load __PACKAGE__, $VERSION;
9 2     2   7 use base qw(Exporter);
  2         3  
  2         303  
10             our @EXPORT = qw(
11             prefix_search_build
12             prefix_search_create
13             prefix_search);
14             1;
15              
16             sub prefix_search_create(@)
17             {
18 0     0     my @copy = @_;
19 0 0         @copy = sort { length $b <=> length $a || $a cmp $b } @copy;
  0            
20 0           return prefix_search_build(\@copy);
21             }
22              
23             __END__