use strict;\r
use XSLoader ();\r
\r
-our $VERSION = '0.02';\r
+our $VERSION = '0.04_01';\r
\r
XSLoader::load __PACKAGE__, $VERSION;\r
\r
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
}\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