| line |
true |
false |
branch |
|
25
|
0 |
3 |
unless @_ >= 1 and @_ <= 3 |
|
33
|
0 |
2 |
if (UNIVERSAL::isa($in, 'IO::Handle') or ref \$in eq 'GLOB' or ref $in eq 'GLOB' or ref $in eq 'FileHandle') |
|
67
|
0 |
6 |
unless @_ == 1 |
|
73
|
0 |
6 |
if (UNIVERSAL::isa($in, 'IO::Handle') or ref \$in eq 'GLOB' or ref $in eq 'GLOB' or ref $in eq 'FileHandle') { } |
|
|
5 |
1 |
elsif (ref \$in eq 'SCALAR') { } |
|
|
1 |
0 |
elsif (ref $in eq 'ARRAY') { } |
|
82
|
0 |
0 |
if ($file eq '' and not $mode) |
|
83
|
0 |
0 |
if /^begin\s+(\d+)\s+(.+)$/ |
|
86
|
0 |
0 |
if /^end/ |
|
92
|
5 |
88 |
if ($file eq '' and not $mode) |
|
96
|
0 |
88 |
if $file eq '' and not $mode |
|
97
|
5 |
83 |
if $line =~ /^end/ |
|
103
|
1 |
2 |
if ($file eq '' and not $mode) |
|
107
|
0 |
2 |
if $file eq '' and not $mode |
|
108
|
1 |
1 |
if $line =~ /^end/ |
|
112
|
0 |
6 |
wantarray ? : |
|
120
|
0 |
84 |
if $chunk =~ /^(?:--|CREATED)/ |
|
128
|
79 |
5 |
defined $ret ? : |