File Coverage

blib/lib/Text/Prefix/XS.pm
Criterion Covered Total %
statement 20 20 100.0
branch 1 2 50.0
condition n/a
subroutine 6 6 100.0
pod 1 1 100.0
total 28 29 96.5


line stmt bran cond sub pod time code
1             package Text::Prefix::XS;
2 4     4   92149 use XSLoader;
  4         11  
  4         109  
3 4     4   23 use strict;
  4         11  
  4         134  
4 4     4   20 use warnings;
  4         13  
  4         388  
5              
6             our ($VERSION, @ISA);
7              
8             BEGIN {
9 4     4   8 $VERSION = '0.15';
10 4         20 require DynaLoader;
11 4         38 push @ISA, 'DynaLoader';
12 4         2589 __PACKAGE__->bootstrap($VERSION);
13             }
14              
15 4     4   30 use base qw(Exporter);
  4         5  
  4         1753  
16              
17             our @EXPORT = qw(
18             prefix_search_build
19             prefix_search_create
20             prefix_search
21             prefix_search_multi
22             );
23              
24             #sub import {
25             # #Sub::Op::enable(psearch => scalar caller);
26             # goto &Exporter::import;
27             #}
28             #
29             #sub unimport {
30             # #Sub::Op::disable(psearch => scalar caller);
31             # goto &Exporter::unimport;
32             #}
33             #
34              
35             sub prefix_search_create(@)
36             {
37 2     2 1 37 my @copy = @_;
38 2 50       17 @copy = sort { length $b <=> length $a || $a cmp $b } @copy;
  7         29  
39 2         258 return prefix_search_build(\@copy);
40             }
41              
42              
43             "MOVE EVERY ZIG!!!";
44              
45             __END__