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.024_000;
4 1     1   367 use strict;
  1         2  
  1         23  
5 1     1   4 use warnings;
  1         1  
  1         119  
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.29';
15              
16             require XSLoader;
17             XSLoader::load('Regexp::Compare', $VERSION);
18              
19             sub is_less_or_equal {
20 8507     8507 0 13075 local ${^RE_TRIE_MAXBUF} = -1;
21 1     1   854 return Regexp::Compare::_is_less_or_equal(@_);
  1         15  
  1         14  
  8507         182047  
22             }
23              
24             1;
25             __END__