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__ |