| line |
true |
false |
branch |
|
30
|
13 |
34 |
if $self->auto_split |
|
31
|
36 |
11 |
unless defined $self->multiline_type |
|
59
|
927 |
68 |
unless defined $newval |
|
60
|
26 |
42 |
if not $newval and &$orig($self) |
|
62
|
41 |
27 |
if $newval |
|
92
|
1201 |
8 |
if not @_ or eqq($_[0], $oldval) |
|
98
|
6 |
2 |
if defined $newval |
|
119
|
6 |
12 |
unless $self->auto_split |
|
142
|
2 |
2 |
unless $self->auto_split |
|
149
|
6 |
1 |
unless exists $opt{'dont_record'} |
|
150
|
1 |
6 |
if exists $opt{'if'} |
|
151
|
1 |
6 |
if exists $opt{'continue_to_next'} |
|
158
|
3 |
4 |
if $self->$pred |
|
179
|
1 |
2 |
unless $self->auto_split |
|
187
|
2 |
68 |
unless defined $self->_handle_read_inp(@_) |
|
196
|
2 |
72 |
unless @_ |
|
197
|
1 |
65 |
unless ref $_[0] or $_[0] |
|
198
|
65 |
6 |
unless ref $_[0] |
|
212
|
123 |
4 |
unless $self->$pred |
|
221
|
56 |
3 |
if $self->_has_filename |
|
236
|
7 |
504 |
unless $self->__parse_line($_) |
|
250
|
229 |
288 |
if $self->auto_chomp |
|
256
|
448 |
69 |
if $self->auto_trim eq 'n' |
|
257
|
61 |
8 |
if $self->auto_trim eq 'b' |
|
258
|
4 |
4 |
if $self->auto_trim eq 'l' |
|
283
|
1 |
70 |
unless defined $self->filename |
|
290
|
66 |
4 |
if defined $fname |
|
300
|
66 |
1 |
if -f $fname and -r $fname and -T $fname |
|
307
|
3 |
1 |
unless -f $fname |
|
308
|
0 |
1 |
unless -r $fname |
|
327
|
3 |
71 |
unless @_ or $self->_has_filehandle |
|
328
|
10 |
71 |
if @_ |
|
329
|
6 |
71 |
if @_ |
|
350
|
169 |
144 |
$self->_has_no_rules ? : |
|
358
|
180 |
97 |
unless $rule->test($self) |
|
360
|
94 |
3 |
unless $rule->continue_to_next |
|
413
|
1 |
15 |
unless $count |
|
420
|
6 |
65 |
unless defined $self->multiline_type |
|
421
|
5 |
60 |
if $self->multiline_type eq 'join_last' and $self->lines_parsed == 1 |