| line |
true |
false |
branch |
|
65
|
0 |
4 |
if $_[0] eq 'PerlIO::via::dynamic' |
|
69
|
0 |
4 |
if ($] == 5.01 and ref $_[-1] eq 'GLOB') |
|
91
|
3 |
3 |
if defined $line |
|
97
|
0 |
0 |
unless $ret > 0 |
|
106
|
1 |
0 |
print({$_[2];} $buf) ? : |
|
117
|
0 |
4 |
unless eval "\npackage $package;\nour \@ISA = qw($class);\n\n1;\n" |
|
126
|
7 |
1 |
if exists $arg{$_} |
|
130
|
4 |
0 |
unless ($$self{'use_read'}) |
|
142
|
1 |
3 |
unless ($fh) |
|
147
|
0 |
3 |
unless binmode $fh, $via |
|
148
|
3 |
0 |
if (defined *$fh{'SCALAR'}) { } |
|
149
|
0 |
3 |
if (defined *$fh{'ARRAY'}) { } |
|
164
|
4 |
4 |
unless UNIVERSAL::isa($self, 'HASH') |
|
165
|
1 |
3 |
if $$self{'nogc'} |
|
173
|
45 |
0 |
if $sym |