File Coverage

blib/lib/Regexp/Compare.pm
Criterion Covered Total %
statement 11 11 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod 0 1 0.0
total 15 16 93.7


line stmt bran cond sub pod time code
1             package Regexp::Compare;
2              
3             require 5.026_000;
4 1     1   439 use strict;
  1         3  
  1         24  
5 1     1   5 use warnings;
  1         2  
  1         172  
6              
7             require Exporter;
8              
9             our @ISA = qw(Exporter);
10              
11             our @EXPORT_OK = qw(is_less_or_equal);
12             our @EXPORT = qw();
13              
14             our $VERSION = '0.30';
15              
16             require XSLoader;
17             XSLoader::load('Regexp::Compare', $VERSION);
18              
19             sub is_less_or_equal {
20 9068     9068 0 14270 local ${^RE_TRIE_MAXBUF} = -1;
21 1     1   777 return Regexp::Compare::_is_less_or_equal(@_);
  1         17  
  1         14  
  9068         215290  
22             }
23              
24             1;
25             __END__