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   361 use strict;
  1         2  
  1         22  
5 1     1   5 use warnings;
  1         1  
  1         114  
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.31';
15              
16             require XSLoader;
17             XSLoader::load('Regexp::Compare', $VERSION);
18              
19             sub is_less_or_equal {
20 9068     9068 0 13395 local ${^RE_TRIE_MAXBUF} = -1;
21 1     1   696 return Regexp::Compare::_is_less_or_equal(@_);
  1         14  
  1         13  
  9068         190039  
22             }
23              
24             1;
25             __END__