Started a new module, Test::Regex, as a proof of concept. Not sure it's
something that's useful (although to at least one person it is), or if
it should be rolled into Test::More to avoid code duplication, or what.
Lets you check the dollar vars of your results
matches_are( "dog food", qr/dog(.+)/, 1=>"food", "Matched OK" );
or
matches_are( "first middle end", qr/middle|center/,
"&" => "middle", "`" => "first " );
Eventually we'll handle the punc vars, but for now this will do.
Thoughts?
xoa
----- Forwarded message from PAUSE <[EMAIL PROTECTED]> -----
The uploaded file
Test-Regex-0.01.tar.gz
has entered CPAN as
file: $CPAN/authors/id/P/PE/PETDANCE/Test-Regex-0.01.tar.gz
size: 2890 bytes
md5: 565b7e75907b621dfc411bb967b38fe7
No action is required on your part
Request entered by: PETDANCE (Andy Lester)
Request entered on: Mon, 02 Aug 2004 03:14:00 GMT
Request completed: Mon, 02 Aug 2004 03:15:14 GMT
Thanks,
--
paused, v460
----- End forwarded message -----
--
Andy Lester => [EMAIL PROTECTED] => www.petdance.com => AIM:petdance
