| line |
true |
false |
branch |
|
64
|
2 |
7 |
if ($_ % 2) { } |
|
88
|
2 |
0 |
$_ eq ',' ? : |
|
104
|
2 |
5 |
if (&Switch::case('\\@')) |
|
105
|
1 |
1 |
if ($names[$_] =~ /\@/) { } |
|
115
|
0 |
5 |
if (&Switch::case('\\%')) |
|
116
|
0 |
0 |
if ($names[$_] =~ /%/) { } |
|
126
|
1 |
4 |
if (&Switch::case('@')) |
|
127
|
1 |
0 |
if ($names[$_] ne '@_') |
|
132
|
0 |
4 |
if (&Switch::case('%')) |
|
133
|
0 |
0 |
if ($names[$_] eq '%_') { } |
|
155
|
0 |
0 |
$^V gt 5.8.0 ? : |
|
|
0 |
7 |
if (&Switch::case(qr/^REF/)) |
|
156
|
0 |
7 |
if (&Switch::case(qr/^GLOB/)) |
|
157
|
0 |
7 |
if (&Switch::case(qr/^CODE/)) |
|
158
|
0 |
7 |
if (&Switch::case(qr/^HASH/)) |
|
159
|
1 |
6 |
if (&Switch::case(qr/^ARRAY/)) |
|
160
|
0 |
6 |
if (&Switch::case(qr/^SCALAR/)) |
|
161
|
1 |
5 |
if (&Switch::case(qr/^\*\@/)) |
|
162
|
0 |
5 |
if (&Switch::case(qr/^\*\%/)) |
|
163
|
1 |
4 |
if (&Switch::case(qr/^\@/)) |
|
164
|
0 |
4 |
if (&Switch::case(qr/^\%/)) |