Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #!perl
- use strict;
- use warnings;
- use encoding 'utf8';
- use Test::More 'no_plan';
- ok('áá' =~ m/á/, 'ok direct match');
- my $re = qr{á};
- ok('áá' =~ m/$re/, 'ok qr-based match');
- like('áá', $re, 'like qr-based match');
Add Comment
Please, Sign In to add comment