]> git.vpit.fr Git - perl/modules/re-engine-Plugin.git/blob - t/usage/import.pm
Introduce ->callbacks to specify the 'exec' callback individually
[perl/modules/re-engine-Plugin.git] / t / usage / import.pm
1 package import;
2 use strict;
3
4 sub exec;
5 use re::engine::Plugin ':import';
6
7 sub exec
8 {
9     my ($re, $str) = @_;
10
11     $re->num_captures(
12         FETCH => sub {
13             my ($re, $paren) = @_;
14
15             $str . "_" . $paren;
16         }
17     );
18
19     1;
20 }
21
22 1;