Help for this page

Select Code to Download

Select or download this

#!/usr/bin/env perl

...

    is_deeply($got, $exp, qq{<$raw_str>: } . join('|', @$exp));
}

Select or download this

$ ./pm_11137926_str_parse.pl
1..13
...
ok 11 - <This 'is not unnice.'>: This|'is not unnice.'
ok 12 - <This "is not unnice.">: This|"is not unnice."
ok 13 - <a "bb cc" d>: a|"bb cc"|d