line |
true |
false |
branch |
104
|
3 |
26 |
if ($input =~ /^\s*\
|
131
|
0 |
51 |
if (defined $prev_input and $input eq $prev_input) |
138
|
13 |
38 |
if ($input =~ /^\\([0-7]{1,3})(.*)/so) { } |
|
9 |
29 |
elsif ($input =~ /^\\([nrtbf\\\(\)])(.*)/iso) { } |
|
5 |
24 |
elsif ($input =~ /^\\$cr(.*)/so) { } |
|
2 |
22 |
elsif ($input =~ /^\015\012?(.*)/so) { } |
|
10 |
12 |
elsif ($input =~ /^(.*?)((?:\\(?:[nrtbf\\\(\)0-7]|$cr)|\015\012?).*)/so) { } |
192
|
1 |
137 |
if ($self->{' ishex'}) { } |
|
1 |
136 |
elsif ($self->{' isutf'} or utf8::is_utf8($str) and $str =~ /[^[:ascii:]]/) { } |
201
|
3 |
133 |
if ($str =~ /[^\n\r\t\b\f\040-\176\200-\377]/) { } |