Order the test subdirectories

[perl/modules/re-engine-Plugin.git] / t / 10-usage / import.pm

diff --git a/t/10-usage/import.pm b/t/10-usage/import.pm
new file mode 100644 (file)
index 0000000..0c364ec
--- /dev/null
+++ b/t/10-usage/import.pm
@@ -0,0 +1,22 @@
+package import;
+use strict;
+
+sub exec;
+use re::engine::Plugin ':import';
+
+sub exec
+{
+    my ($re, $str) = @_;
+
+    $re->num_captures(
+        FETCH => sub {
+            my ($re, $paren) = @_;
+
+            $str . "_" . $paren;
+        }
+    );
+
+    1;
+}
+
+1;