| line |
true |
false |
branch |
|
92
|
24 |
3 |
if exists $_attributes{$attr} |
|
181
|
0 |
3 |
if $input eq \&_diamond |
|
222
|
30 |
3 |
if (@_ == 1) { } |
|
238
|
3 |
0 |
unless not defined $c or ref $c eq 'Regexp' |
|
268
|
3 |
0 |
unless not defined $v or ref $v eq 'Regexp' |
|
300
|
0 |
12 |
if $self->_is_eof |
|
306
|
9 |
0 |
if $self->get_ignore_leading_whitespace |
|
307
|
9 |
0 |
if $self->get_ignore_trailing_whitespace |
|
308
|
9 |
0 |
if $self->get_compress_whitespace |
|
339
|
18 |
12 |
unless defined $pre |
|
350
|
6 |
24 |
unless $self->get_ignore_empty_lines and $line =~ /\S/ |
|
353
|
3 |
21 |
if ($t and $line =~ /$t/) |
|
374
|
12 |
9 |
if ($t and $line =~ /$t/) |
|
380
|
3 |
6 |
defined $pre ? : |
|
389
|
0 |
3 |
if defined $pre |
|
402
|
0 |
0 |
unless ($self->_is_open) |
|
403
|
0 |
0 |
unless @ARGV |
|
406
|
0 |
0 |
unless open $$self{'_argf'}, '< :raw', $argv |
|
411
|
0 |
0 |
if defined $result |