X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FRegexp-Wildcards.git;a=blobdiff_plain;f=samples%2Fwc2re.pl;h=0afc1268a8163b1de5a42fe59abd5f5793dbf72c;hp=49a78909dd0b86fdb7cf4ad5e07ef71df96d6d09;hb=fbd767d1d92b735a6509e57ccfbd73b45845081e;hpb=6305572fe1d1790682966644ede8f267f22bd1d1

diff --git a/samples/wc2re.pl b/samples/wc2re.pl
index 49a7890..0afc126 100755
--- a/samples/wc2re.pl
+++ b/samples/wc2re.pl
@@ -3,16 +3,20 @@
 use strict;
 use warnings;
 
-use lib q:../lib/:;
+use lib qw{blib/lib};
 
-use Regexp::Wildcards qw/wc2re/;
+use Regexp::Wildcards;
+use Data::Dumper;
 
-my $type = (grep $^O eq $_, qw/dos os2 MSWin32 cygwin/) ? 'win32' : 'unix';
-print "For this system, type is $type\n";
+my $rw = Regexp::Wildcards->new(
+ do      => [ qw/brackets/ ],
+ capture => [ qw/single/ ],
+);
 
-{
- local $Regexp::Wildcards::CaptureBrackets = 1;
- local $Regexp::Wildcards::CaptureAny = -1;
- print $_, ' => ', wc2re($_ => $^O), "\n" for @ARGV;
-}
+use Data::Dumper;
+print Dumper($rw);
 
+$rw->capture(add => [ qw/brackets any greedy/ ]);
+print Dumper($rw);
+
+print $_, ' => ', $rw->convert($_), "\n" for @ARGV;