File Coverage

blib/lib/Algorithm/AhoCorasick/XS.pm
Criterion Covered Total %
statement 7 9 77.7
branch n/a
condition n/a
subroutine 3 3 100.0
pod n/a
total 10 12 83.3


line stmt bran cond sub pod time code
1             package Algorithm::AhoCorasick::XS;
2 5     5   90188 use strict;
  5         8  
  5         162  
3 5     5   25 use warnings;
  5         5  
  5         181  
4 5     5   5334 use List::MoreUtils qw(uniq);
  0            
  0            
5             require XSLoader;
6             our $VERSION = '0.02';
7             XSLoader::load('Algorithm::AhoCorasick::XS', $VERSION);
8              
9             sub unique_matches {
10             my ($self, $input) = @_;
11             return uniq $self->matches($input);
12             }
13              
14             1;
15              
16             __END__