File Coverage

blib/lib/re/engine/Plugin.pm

Criterion	Covered	Total	%
statement	34	36	94.4
branch	5	8	62.5
condition			n/a
subroutine	7	7	100.0
pod	2	2	100.0
total	48	53	90.5

# See Plugin.pod for documentation
package re::engine::Plugin;
use 5.010;
use strict;

our ($VERSION, @ISA);

BEGIN {
 $VERSION = '0.12';
 # All engines should subclass the core Regexp package
 @ISA = 'Regexp';
 require XSLoader;
 XSLoader::load(__PACKAGE__, $VERSION);
}

my $RE_ENGINE_PLUGIN = ENGINE();

sub import
{
    my ($pkg, %sub) = @_;

    # Valid callbacks
    my @callback = qw;

    for (@callback) {
        next unless exists $sub{$_};
        my $cb = $sub{$_};

        unless (ref $cb eq 'CODE') {
            require Carp;
            Carp::croak("'$_' is not CODE");
        }
    }

    $^H |= 0x020000;

    $^H{+(__PACKAGE__)} = _tag(@sub{@callback});
    $^H{regcomp}        = $RE_ENGINE_PLUGIN;

    return;
}

sub unimport
{
    # Delete the regcomp hook
    delete $^H{regcomp}
        if $^H{regcomp} == $RE_ENGINE_PLUGIN;

    delete $^H{+(__PACKAGE__)};

    return;
}

sub callbacks
{
    my ($re, %callback) = @_;

    my %map = map { $_ => "_$_" } qw;

    for my $key (keys %callback) {
        my $name = $map{$key};
        next unless defined $name;
        $re->$name($callback{$key});
    }
}

sub num_captures
{
    my ($re, %callback) = @_;

    for my $key (keys %callback) {
        $key =~ y/a-z/A-Z/; # ASCII uc
        my $name = '_num_capture_buff_' . $key;
        $re->$name( $callback{$key} );
    }
}

1;