| line |
true |
false |
branch |
|
21
|
0 |
67444 |
if $debug |
|
32
|
20 |
160 |
@_ ? : |
|
42
|
0 |
160 |
unless defined $_ and _is_number() |
|
45
|
0 |
80 |
if ($op eq '/' and $$array_ref[0] == 0) |
|
138
|
0 |
520 |
unless my $class = shift() |
|
139
|
0 |
520 |
unless defined(my $init = shift()) |
|
151
|
120 |
400 |
if (not $ref) { } |
|
|
400 |
0 |
elsif ($ref eq 'ARRAY') { } |
|
159
|
260 |
140 |
if (defined $tied_object) { } |
|
161
|
0 |
260 |
unless $tied_object->isa($class) |
|
183
|
260 |
260 |
unless (defined $code_ref) |
|
186
|
0 |
260 |
unless my $code = shift() |
|
189
|
140 |
120 |
if (not $ref) { } |
|
|
120 |
0 |
elsif ($ref eq 'CODE') { } |
|
191
|
0 |
140 |
unless exists $CODES_ABBREV{$code} |
|
195
|
60 |
80 |
if defined $array_ref |
|
206
|
0 |
520 |
unless ref [@arr] eq 'ARRAY' |
|
207
|
0 |
520 |
unless ref $code_ref eq 'CODE' |
|
234
|
2862 |
64062 |
unless ($index < $length) |
|
251
|
0 |
0 |
if (defined $value) |
|
252
|
0 |
0 |
unless $$self{'array'}[$index] == $value |