| line |
true |
false |
branch |
|
34
|
1 |
1064 |
if @_ and @_ & 1 |
|
39
|
1 |
1063 |
if defined $params{'Regexp'} and defined $params{'Literal'} |
|
46
|
707 |
356 |
if (defined $params{'Literal'}) { } |
|
48
|
1 |
706 |
unless defined $params{'Literal'} and length $params{'Literal'} |
|
51
|
2 |
703 |
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) { } |
|
79
|
1 |
4 |
if defined $params{'InputRegexp'} |
|
84
|
0 |
2 |
if defined $params{'InputLiteral'} |
|
90
|
6 |
349 |
if (defined $params{'OutputLiteral'}) { } |
|
100
|
1 |
1053 |
unless $max_buffer >= $max_length |
|
104
|
0 |
1053 |
if scalar keys %params |
|
139
|
1 |
465 |
if $self->[5] < length $self->[0] |
|
152
|
2803 |
7 |
unless ($self->[3]) |
|
155
|
449 |
2354 |
unless $self->[0] =~ s/^(.*?)$self->[1]//s |
|
158
|
1 |
2353 |
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] |