X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2Fre-engine-Plugin.git;a=blobdiff_plain;f=Plugin.pm;h=2177dfdacecae5948b5fe722bc5229932d4991c1;hp=ef2dbaea34c38939567c31373fb19bd94c5659ef;hb=bc365867d2883a69972ef82adf4b19d0680e43aa;hpb=18ec04e7558b13fcd57575f566794a909ca60aca

diff --git a/Plugin.pm b/Plugin.pm
index ef2dbae..2177dfd 100644
--- a/Plugin.pm
+++ b/Plugin.pm
@@ -51,6 +51,19 @@ sub unimport
     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) = @_;