| line |
true |
false |
branch |
|
119
|
1 |
15 |
if @_ and @_ & 1 |
|
124
|
1 |
14 |
if defined $params{'Regexp'} and defined $params{'Literal'} |
|
131
|
6 |
8 |
if (defined $params{'Literal'}) { } |
|
133
|
1 |
5 |
unless length $params{'Literal'} |
|
136
|
2 |
2 |
if (exists $params{'InputLiteral'} or defined $params{'InputRegexp'} or defined $params{'OutputLiteral'}) |
|
146
|
5 |
3 |
if (exists $params{'InputLiteral'}) { } |
|
|
2 |
1 |
elsif (defined $params{'InputRegexp'}) { } |
|
151
|
2 |
3 |
if (defined $input_regexp and length $input_regexp) { } |
|
160
|
1 |
4 |
if defined $params{'InputRegexp'} |
|
172
|
6 |
1 |
if (defined $params{'OutputLiteral'}) { } |
|
181
|
0 |
9 |
if scalar keys %params |
|
214
|
3 |
4 |
if (length $self->[1]) |
|
217
|
5 |
2 |
@ret ? : |
|
227
|
42 |
68 |
if (defined $data) |
|
234
|
100 |
12 |
unless ($self->[4]) |
|
237
|
64 |
36 |
unless $self->[1] =~ s/^(.*?)$self->[2]//s |
|
244
|
6 |
6 |
if ($self->[4] & 1) |
|
246
|
3 |
3 |
unless $self->[1] =~ s/^(.*?)(\x0D\x0A?|\x0A\x0D?)// |
|
253
|
1 |
2 |
if (length $2 == 2 or length $self->[1]) { } |
|
275
|
6 |
0 |
if ($self->[4] & 2) |
|
276
|
4 |
2 |
unless length $self->[1] |
|
280
|
1 |
1 |
$self->[2] eq "\r" ? : |
|
|
1 |
1 |
if (substr($self->[1], 0, 1) eq ($self->[2] eq "\r" ? "\n" : "\r")) { } |