+sub num_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 = '_num_capture_buff_' . $key;\r
+ $re->$name( $callback{$key} );\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