# See Plugin.pod for documentation
package re::engine::Plugin;
-use 5.009005;
+use 5.010;
use strict;
our ($VERSION, @ISA);
return;
}
+sub callbacks
+{
+ my ($re, %callback) = @_;
+
+ my %map = map { $_ => "_$_" } qw/exec/;
+
+ for my $key (keys %callback) {
+ my $name = $map{$key};
+ next unless defined $name;
+ $re->$name($callback{$key});
+ }
+}
+
sub num_captures
{
my ($re, %callback) = @_;