9 use blib 't/re-engine-Hooks-TestDist';
13 die "Usage: $0 regexp string1 string2...\n" unless @ARGV >= 2;
14 my ($rx, @strings) = @ARGV;
21 print "executed $_[0] regnode\n";
22 Term::ReadKey::ReadMode(4);
23 my $key = Term::ReadKey::ReadKey(0);
24 Term::ReadKey::ReadMode(1);
29 use re::engine::Hooks::TestDist 'custom' => $cb;
34 for my $str (@strings) {
35 print "Matching string \"$str\"\n";
38 use re::engine::Hooks::TestDist 'custom';