| line |
true |
false |
branch |
|
30
|
13 |
34 |
if $self->auto_split |
|
31
|
36 |
11 |
unless defined $self->multiline_type |
|
54
|
54 |
27 |
if $newval |
|
55
|
26 |
55 |
if not $newval and $oldval |
|
85
|
1201 |
8 |
if not @_ or eqq($_[0], $oldval) |
|
91
|
6 |
2 |
if defined $newval |
|
112
|
6 |
12 |
unless $self->auto_split |
|
135
|
2 |
2 |
unless $self->auto_split |
|
142
|
6 |
1 |
unless exists $opt{'dont_record'} |
|
143
|
1 |
6 |
if exists $opt{'if'} |
|
144
|
1 |
6 |
if exists $opt{'continue_to_next'} |
|
151
|
3 |
4 |
if $self->$pred |
|
172
|
1 |
2 |
unless $self->auto_split |
|
180
|
2 |
68 |
unless defined $self->_handle_read_inp(@_) |
|
189
|
2 |
72 |
unless @_ |
|
190
|
1 |
65 |
unless ref $_[0] or $_[0] |
|
191
|
65 |
6 |
unless ref $_[0] |
|
205
|
123 |
4 |
unless $self->$pred |
|
214
|
56 |
3 |
if $self->_has_filename |
|
229
|
7 |
504 |
unless $self->__parse_line($_) |
|
244
|
229 |
288 |
if $self->auto_chomp |
|
250
|
448 |
69 |
if $self->auto_trim eq 'n' |
|
251
|
61 |
8 |
if $self->auto_trim eq 'b' |
|
252
|
4 |
4 |
if $self->auto_trim eq 'l' |
|
270
|
1 |
70 |
unless defined $self->filename |
|
277
|
66 |
4 |
if defined $fname |
|
287
|
66 |
1 |
if -f $fname and -r $fname and -T $fname |
|
294
|
3 |
1 |
unless -f $fname |
|
295
|
0 |
1 |
unless -r $fname |
|
314
|
3 |
71 |
unless @_ or $self->_has_filehandle |
|
315
|
10 |
71 |
if @_ |
|
316
|
6 |
71 |
if @_ |
|
337
|
169 |
144 |
$self->_has_no_rules ? : |
|
345
|
180 |
97 |
unless $rule->_test($self) |
|
347
|
94 |
3 |
unless $rule->continue_to_next |
|
400
|
1 |
15 |
unless $count |
|
407
|
6 |
65 |
unless defined $self->multiline_type |
|
408
|
5 |
60 |
if $self->multiline_type eq 'join_last' and $self->lines_parsed == 1 |