line |
true |
false |
branch |
34
|
1 |
1036 |
if @_ and @_ & 1 |
37
|
1 |
1035 |
if defined $params{'Regexp'} and defined $params{'Literal'} |
46
|
679 |
356 |
if (defined $params{'Literal'}) { } |
47
|
1 |
678 |
unless defined $params{'Literal'} and length $params{'Literal'} |
51
|
2 |
675 |
if (exists $params{'InputLiteral'} or defined $params{'InputRegexp'} or defined $params{'OutputLiteral'}) |
65
|
5 |
351 |
if (exists $params{'InputLiteral'}) { } |
|
2 |
349 |
elsif (defined $params{'InputRegexp'}) { } |
70
|
2 |
3 |
if (defined $input_regexp and length $input_regexp) { } |
78
|
1 |
4 |
if defined $params{'InputRegexp'} |
83
|
0 |
2 |
if defined $params{'InputLiteral'} |
90
|
6 |
349 |
if (defined $params{'OutputLiteral'}) { } |
100
|
1 |
1025 |
unless $max_buffer >= $max_length |
104
|
0 |
1025 |
if scalar keys %params |
139
|
1 |
566 |
if $$self[5] < length $$self[0] |
152
|
2986 |
7 |
unless ($$self[3]) |
155
|
550 |
2436 |
unless $$self[0] =~ s/^(.*?)$$self[1]//s |
158
|
1 |
2435 |
if length $line > $$self[4] |
165
|
3 |
4 |
if ($$self[3] & 1) |
167
|
0 |
3 |
unless $$self[0] =~ s/^(.*?)(\x0D\x0A?|\x0A\x0D?)// |
174
|
1 |
2 |
if (length $2 == 2 or length $$self[0]) { } |
190
|
0 |
3 |
if length $line > $$self[4] |
198
|
4 |
0 |
if ($$self[3] & 2) |
199
|
2 |
2 |
unless length $$self[0] |
203
|
1 |
1 |
$$self[1] eq "\r" ? : |
|
1 |
1 |
if (substr($$self[0], 0, 1) eq ($$self[1] eq "\r" ? "\n" : "\r")) { } |
255
|
6 |
12 |
if length $$self[0] |