our ($VERSION, @ISA);
BEGIN {
- $VERSION = '0.07';
+ $VERSION = '0.12';
# All engines should subclass the core Regexp package
@ISA = 'Regexp';
require XSLoader;
my ($pkg, %sub) = @_;
# Valid callbacks
- my @callback = qw(comp exec);
+ my @callback = qw<comp exec free>;
for (@callback) {
next unless exists $sub{$_};
{
my ($re, %callback) = @_;
- my %map = map { $_ => "_$_" } qw/exec/;
+ my %map = map { $_ => "_$_" } qw<exec free>;
for my $key (keys %callback) {
my $name = $map{$key};