| line |
true |
false |
branch |
|
54
|
1 |
0 |
if ($] ge '5.008009') { } |
|
350
|
21 |
212 |
if ($_[0] eq '-recurse') { } |
|
|
45 |
167 |
elsif ($_[0] eq '-arrays') { } |
|
|
20 |
147 |
elsif ($_[0] eq '-meth') { } |
|
|
9 |
138 |
elsif ($_[0] eq '-clean') { } |
|
|
50 |
88 |
elsif ($_[0] eq '-lock') { } |
|
|
4 |
84 |
elsif ($_[0] eq '-nolock') { } |
|
|
13 |
71 |
elsif ($_[0] eq '-ro') { } |
|
|
8 |
63 |
elsif ($_[0] eq '-new') { } |
|
|
18 |
45 |
elsif ($_[0] eq '-pass') { } |
|
|
16 |
29 |
elsif ($_[0] eq '-class') { } |
|
|
11 |
18 |
elsif ($_[0] eq '-classify') { } |
|
|
7 |
11 |
elsif ($_[0] eq '-isa') { } |
|
|
8 |
3 |
elsif ($_[0] eq '-destroy') { } |
|
353
|
3 |
6 |
shift() ? : |
|
354
|
48 |
2 |
shift() ? : |
|
360
|
4 |
14 |
if not defined $pass or $pass ne "undef" and $pass ne "ref" |
|
365
|
2 |
13 |
if not defined $class or ref $class or not length $class |
|
370
|
3 |
8 |
if (ref $class eq "HASH") |
|
371
|
2 |
8 |
if not defined $class or ref $class or not length $class |
|
377
|
1 |
6 |
unless ref $isa eq "ARRAY" or not ref $isa |
|
378
|
5 |
1 |
unless ref $isa |
|
382
|
2 |
6 |
unless ref $destroy eq "CODE" |
|
386
|
136 |
9 |
unless defined $clean |
|
387
|
91 |
54 |
unless defined $lock |
|
388
|
45 |
100 |
if $arrays |
|
390
|
32 |
113 |
if (ref $hash ne "HASH") |
|
391
|
15 |
17 |
if ($arrays and ref $hash eq 'ARRAY') { } |
|
|
9 |
8 |
elsif ($pass) { } |
|
393
|
1 |
18 |
$ro ? : |
|
|
19 |
4 |
if ref $_ eq "HASH" or ref $_ eq "ARRAY" |
|
398
|
6 |
3 |
if ($pass eq 'ref') { } |
|
399
|
4 |
2 |
if not defined $hash or ref $hash |
|
403
|
1 |
2 |
unless defined $hash |
|
409
|
1 |
11 |
if $ro and @_ and not $new |
|
413
|
6 |
5 |
if exists $keys{'DESTROY'} and $destroy || $clean || !$meth || ref $hash->{'DESTROY'} ne 'CODE' |
|
415
|
1 |
15 |
if $new and exists $keys{'new'} |
|
416
|
1 |
98 |
if $ro and not $lock |
|
417
|
48 |
50 |
if ($recurse) |
|
419
|
10 |
49 |
if ($arrays and ref $_ eq 'ARRAY') { } |
|
|
17 |
32 |
elsif (ref $_ eq 'HASH') { } |
|
420
|
1 |
9 |
$ro ? : |
|
422
|
6 |
11 |
$arrays ? : |
|
|
3 |
14 |
$ro ? : |
|
425
|
16 |
82 |
defined $class ? : |
|
428
|
10 |
19 |
if @_ |
|
|
16 |
3 |
exists $self->{$k} ? : |
|
429
|
13 |
99 |
if @_ |
|
|
14 |
105 |
$ro ? : |
|
430
|
18 |
101 |
if ($meth and ref $hash->{$k} eq "CODE") |
|
431
|
16 |
2 |
unless $ak{$k} |
|
434
|
83 |
15 |
if ($destroy or $clean) |
|
436
|
6 |
75 |
if $destroy |
|
437
|
79 |
2 |
if ($clean) |
|
438
|
1 |
78 |
if ($pack eq 'main') { } |
|
444
|
15 |
83 |
if ($new) |
|
447
|
7 |
10 |
if ref $class |
|
448
|
1 |
16 |
if @_ % 2 |
|
452
|
2 |
13 |
if ($ro) { } |
|
|
12 |
1 |
elsif ($lock) { } |
|
458
|
6 |
92 |
if ($isa) |
|
460
|
10 |
88 |
if ($ro) { } |
|
|
83 |
5 |
elsif ($lock) { } |
|
510
|
26 |
1 |
if ($_[0] eq '-arrays') { } |
|
513
|
1 |
39 |
unless @_ |
|
515
|
2 |
37 |
if @_ |
|
516
|
25 |
12 |
$arrays ? : |
|
517
|
18 |
19 |
if (ref($h2o) =~ /$_PACKAGE_REGEX/) { } |
|
|
6 |
19 |
elsif ($arrays and ref $h2o eq 'ARRAY') { } |