| line |
true |
false |
branch |
|
421
|
3 |
11 |
if (@_ > 2) |
|
426
|
3 |
0 |
defined $values ? : |
|
427
|
2 |
1 |
ref $values ? : |
|
502
|
7 |
9 |
wantarray ? : |
|
525
|
4 |
0 |
if (@_) { } |
|
562
|
10 |
0 |
defined $2 ? : |
|
564
|
10 |
0 |
if substr($_[0], -1, 1) eq "\n" |
|
622
|
16 |
2 |
if length $_ == 1 |
|
623
|
2 |
0 |
if defined $$self{'L'} |
|
629
|
10 |
10 |
unless ($opts{'Quick'}) |
|
765
|
0 |
0 |
unless $Text::Refer::QUIET |
|
766
|
0 |
0 |
wantarray ? : |
|
792
|
0 |
2 |
if ($$self{'Newline'} eq 'KILL') { } |
|
|
0 |
2 |
elsif ($$self{'Newline'} eq 'TOSPACE') { } |
|
811
|
0 |
3 |
if $class |
|
845
|
1 |
11 |
unless defined($_ = <$fh>) |
|
847
|
3 |
8 |
if length $_ |
|
856
|
29 |
1 |
if (/^%(.)\s?(.*)$/) { } |
|
|
1 |
0 |
elsif (defined $field) { } |
|
857
|
0 |
29 |
unless index($$self{'Fields'}, $field = $1) >= 0 |
|
864
|
0 |
1 |
if ($LeadWhite eq 'KILLONE') { } |
|
|
0 |
1 |
elsif ($LeadWhite eq 'KILLALL') { } |
|
877
|
0 |
30 |
unless (defined($_ = <$fh>)) |
|
878
|
0 |
0 |
$$self{'ForgiveEOF'} ? : |
|
880
|
3 |
27 |
if $_ eq '' |