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;