Importing re-engine-Plugin-0.04_01.tar.gz

[perl/modules/re-engine-Plugin.git] / Plugin.pm

diff --git a/Plugin.pm b/Plugin.pm
index 220dfdfd9b94ebb9fc6340e2b95d15563d98171d..80fa3892b81e68fcbaf1013a024cc009ee4473c0 100644 (file)
--- a/Plugin.pm
+++ b/Plugin.pm
@@ -5,7 +5,7 @@ use base 'Regexp';
 use strict;\r
 use XSLoader ();\r
 \r
-our $VERSION = '0.03';\r
+our $VERSION = '0.04_01';\r
 \r
 XSLoader::load __PACKAGE__, $VERSION;\r
 \r
@@ -26,7 +26,7 @@ sub import
     my ($pkg, %sub) = @_;\r
 \r
     # Valid callbacks\r
-    my @callback = qw(comp exec intuit checkstr free dupe);\r
+    my @callback = qw(comp exec); #intuit checkstr free dupe);\r
 \r
     for (@callback) {\r
         next unless exists $sub{$_};\r
@@ -83,4 +83,15 @@ sub num_captures
     }\r
 }\r
 \r
+sub named_captures\r
+{\r
+    my ($re, %callback) = @_;\r
+\r
+    for my $key (keys %callback) {\r
+        $key =~ y/a-z/A-Z/; # ASCII uc\r
+        my $name = '_named_capture_buff_' . $key;\r
+        $re->$name( $callback{$key} );\r
+    }\r
+}\r
+\r
 1;\r