File Coverage

blib/lib/re/engine/PCRE2.pm

Criterion	Covered	Total	%
statement	8	10	80.0
branch	0	2	0.0
condition			n/a
subroutine	3	5	60.0
pod			n/a
total	11	17	64.7

package re::engine::PCRE2;
our $VERSION = '0.14';
our $XS_VERSION = $VERSION;
$VERSION = eval $VERSION;

use 5.010;
use strict;
use XSLoader ();

# All engines should subclass the core Regexp package
our @ISA = 'Regexp';

XSLoader::load(__PACKAGE__, $XS_VERSION);

# set'able via import
our @CONTEXT_OPTIONS = qw(
  bsr max_pattern_length newline parenslimit
  matchlimit offsetlimit recursionlimit heaplimit
);

# TODO: set context options, and save prev. ones for unimport.
# compile-ctx and match-ctx (see above: @CONTEXT_OPTIONS)
sub import {
  $^H{regcomp} = re::engine::PCRE2::ENGINE();
}

sub unimport {
  delete $^H{regcomp} if $^H{regcomp} == re::engine::PCRE2::ENGINE();
}

1;

__END__