line |
true |
false |
branch |
26
|
8 |
64 |
if (${$string_sr;} =~ s/($disallowed_whitespace|$invisible|$control)/my $uh = sprintf('%04X', unpack('U', &Encode::decode_utf8($1)));
"[comment,invalid char Ux$uh]";/egmsx) |
33
|
8 |
64 |
if (not ${$string_sr;} =~ /\A \xE2\x80\xA6/ms and ${$string_sr;} =~ s/\A($space_and_no_break_space+)//msx) |
35
|
8 |
0 |
if (substr(${$string_sr;}, 0, 3) eq "\342\200\246") |
36
|
8 |
0 |
if ($startswith =~ /\xc2\xa0/) |
46
|
8 |
64 |
if (${$string_sr;} =~ s/(?:$space_and_no_break_space)+\z//msx) |
51
|
8 |
64 |
if (${$string_sr;} =~ s/${space_and_no_break_space}{2,}/ /msx) |