| line |
true |
false |
branch |
|
42
|
6 |
12 |
if defined $newvalue |
|
49
|
25 |
18 |
defined $$self ? : |
|
63
|
0 |
0 |
unless (eval {
do {
$fh->isa('IO::Handle')
}
} or ref $fh eq 'GLOB' or ref \$fh eq 'GLOB') |
|
70
|
5 |
0 |
$$self ? : |
|
76
|
0 |
1 |
unless defined $fr and defined $$self |
|
79
|
1 |
0 |
if (not ref $fr) { } |
|
|
0 |
0 |
elsif (eval {
do {
$fr->can('print')
}
}) { } |
|
81
|
0 |
1 |
unless ($fh) |
|
103
|
2 |
0 |
if (not ref $fr) { } |
|
|
0 |
0 |
elsif (eval {
do {
$fr->can('getlines')
}
}) { } |
|
105
|
0 |
2 |
unless $fh |
|
124
|
2 |
1 |
unless $self =~ /$NL\Z/m |
|
131
|
13 |
4 |
unless defined $$self |