| line |
true |
false |
branch |
|
43
|
53 |
2 |
if @_ > 1 or not @_ |
|
45
|
1 |
1 |
if ref $ptr ne 'HASH' |
|
52
|
16 |
48 |
if $self->auto_split |
|
53
|
47 |
17 |
unless defined $self->multiline_type |
|
76
|
59 |
27 |
if $newval |
|
77
|
26 |
60 |
if not $newval and $oldval |
|
132
|
1 |
1 |
unless defined $val or defined $oldval |
|
133
|
1 |
14 |
unless defined $val |
|
134
|
6 |
9 |
if $val eq 'custom' and defined $self->multiline_type |
|
149
|
1766 |
17 |
if not @_ or eqq($_[0], $oldval) |
|
156
|
13 |
4 |
if defined $newval |
|
185
|
9 |
17 |
unless $self->auto_split |
|
208
|
3 |
2 |
unless $self->auto_split |
|
215
|
7 |
1 |
unless exists $opt{'dont_record'} |
|
216
|
1 |
7 |
if exists $opt{'if'} |
|
217
|
1 |
7 |
if exists $opt{'continue_to_next'} |
|
224
|
3 |
5 |
if $self->$pred |
|
245
|
1 |
2 |
unless $self->auto_split |
|
285
|
1 |
92 |
unless defined $self->filename |
|
292
|
88 |
4 |
if defined $fname |
|
302
|
88 |
1 |
if -f $fname and -r $fname and -T $fname |
|
309
|
3 |
1 |
unless -f $fname |
|
310
|
0 |
1 |
unless -r $fname |
|
329
|
3 |
92 |
unless @_ or $self->_has_filehandle |
|
330
|
10 |
92 |
if @_ |
|
331
|
6 |
92 |
if @_ |
|
338
|
2 |
89 |
unless defined $self->_handle_read_inp(@_) |
|
346
|
2 |
93 |
unless @_ |
|
347
|
1 |
86 |
unless ref $_[0] or $_[0] |
|
348
|
86 |
6 |
unless ref $_[0] |
|
355
|
2 |
87 |
if not $self->_has_no_prestash |
|
366
|
89 |
78 |
if $func eq '_begin_rule' |
|
368
|
78 |
89 |
if $func eq '_end_rule' |
|
374
|
161 |
6 |
unless $self->$pred |
|
397
|
7 |
723 |
unless $self->__parse_line($_) |
|
412
|
18 |
720 |
if $self->track_indentation |
|
419
|
9 |
9 |
length $self->indentation_str >= 2 ? : |
|
448
|
737 |
1 |
unless defined $self->custom_line_trimmer |
|
456
|
229 |
508 |
if $self->auto_chomp |
|
462
|
668 |
69 |
if $self->auto_trim eq 'n' |
|
463
|
61 |
8 |
if $self->auto_trim eq 'b' |
|
464
|
4 |
4 |
if $self->auto_trim eq 'l' |
|
470
|
75 |
3 |
if $self->_has_filename |
|
472
|
2 |
76 |
if $self->track_indentation |
|
479
|
1 |
15 |
unless $count |
|
523
|
3 |
90 |
if @_ |
|
530
|
1 |
2 |
if $self->_has_stashed($s) |
|
531
|
1 |
2 |
if $self->_has_prestash($s) |
|
537
|
10 |
1 |
if @_ |
|
543
|
2 |
8 |
if $self->_has_stashed(@_) |
|
616
|
1 |
7 |
if defined $s and 'custom' ne $s |
|
628
|
189 |
265 |
$self->_has_no_rules ? : |
|
635
|
66 |
388 |
if 'Text::Parser::RuleSpec'->class_has_rules($self->_origclass) |
|
643
|
456 |
174 |
unless $rule->_test($self) |
|
645
|
161 |
13 |
unless $rule->continue_to_next |
|
670
|
6 |
156 |
unless defined $self->multiline_type |
|
672
|
1 |
155 |
unless defined $routine |
|
679
|
169 |
122 |
defined $self->line_wrap_style ? : |
|
686
|
147 |
9 |
$val ne 'custom' ? : |
|
693
|
1 |
134 |
unless defined $routine |
|
702
|
130 |
5 |
$val ne 'custom' ? : |
|
708
|
6 |
110 |
if $self->multiline_type eq 'join_last' and $self->lines_parsed == 1 |
|
726
|
1 |
20 |
if $self->lines_parsed == 1 |