| line |
true |
false |
branch |
|
54
|
1 |
0 |
if ($] ge '5.008009') { } |
|
348
|
25 |
199 |
if ($_[0] eq '-recurse') { } |
|
|
36 |
163 |
elsif ($_[0] eq '-arrays') { } |
|
|
20 |
143 |
elsif ($_[0] eq '-meth') { } |
|
|
9 |
134 |
elsif ($_[0] eq '-clean') { } |
|
|
46 |
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') { } |
|
351
|
3 |
6 |
shift() ? : |
|
352
|
44 |
2 |
shift() ? : |
|
358
|
4 |
14 |
if not defined $pass or $pass ne "undef" and $pass ne "ref" |
|
363
|
2 |
13 |
if not defined $class or ref $class or not length $class |
|
368
|
3 |
8 |
if (ref $class eq "HASH") |
|
369
|
2 |
8 |
if not defined $class or ref $class or not length $class |
|
375
|
1 |
6 |
unless ref $isa eq "ARRAY" or not ref $isa |
|
376
|
5 |
1 |
unless ref $isa |
|
380
|
2 |
6 |
unless ref $destroy eq "CODE" |
|
384
|
131 |
9 |
unless defined $clean |
|
385
|
90 |
50 |
unless defined $lock |
|
386
|
36 |
104 |
if $arrays |
|
388
|
31 |
109 |
if (ref $hash ne "HASH") |
|
389
|
14 |
17 |
if ($arrays and ref $hash eq 'ARRAY') { } |
|
|
9 |
8 |
elsif ($pass) { } |
|
391
|
1 |
17 |
$ro ? : |
|
|
18 |
3 |
if ref $_ eq "HASH" or ref $_ eq "ARRAY" |
|
396
|
6 |
3 |
if ($pass eq 'ref') { } |
|
397
|
4 |
2 |
if not defined $hash or ref $hash |
|
401
|
1 |
2 |
unless defined $hash |
|
407
|
1 |
11 |
if $ro and @_ and not $new |
|
411
|
6 |
5 |
if exists $keys{'DESTROY'} and $destroy || $clean || !$meth || ref $hash->{'DESTROY'} ne 'CODE' |
|
413
|
1 |
15 |
if $new and exists $keys{'new'} |
|
414
|
1 |
94 |
if $ro and not $lock |
|
415
|
44 |
50 |
if ($recurse) |
|
417
|
9 |
43 |
if ($arrays and ref $_ eq 'ARRAY') { } |
|
|
15 |
28 |
elsif (ref $_ eq 'HASH') { } |
|
418
|
1 |
8 |
$ro ? : |
|
420
|
3 |
12 |
$ro ? : |
|
423
|
16 |
78 |
defined $class ? : |
|
426
|
10 |
19 |
if @_ |
|
|
16 |
3 |
exists $self->{$k} ? : |
|
427
|
13 |
90 |
if @_ |
|
|
14 |
98 |
$ro ? : |
|
428
|
18 |
94 |
if ($meth and ref $hash->{$k} eq "CODE") |
|
429
|
16 |
2 |
unless $ak{$k} |
|
432
|
79 |
15 |
if ($destroy or $clean) |
|
434
|
6 |
72 |
if $destroy |
|
435
|
76 |
2 |
if ($clean) |
|
436
|
1 |
75 |
if ($pack eq 'main') { } |
|
442
|
15 |
79 |
if ($new) |
|
445
|
7 |
10 |
if ref $class |
|
446
|
1 |
16 |
if @_ % 2 |
|
450
|
2 |
13 |
if ($ro) { } |
|
|
12 |
1 |
elsif ($lock) { } |
|
456
|
6 |
88 |
if ($isa) |
|
458
|
10 |
84 |
if ($ro) { } |
|
|
79 |
5 |
elsif ($lock) { } |
|
508
|
25 |
1 |
if ($_[0] eq '-arrays') { } |
|
511
|
1 |
38 |
unless @_ |
|
513
|
2 |
36 |
if @_ |
|
514
|
24 |
12 |
$arrays ? : |
|
515
|
17 |
19 |
if (ref($h2o) =~ /$_PACKAGE_REGEX/) { } |
|
|
6 |
19 |
elsif ($arrays and ref $h2o eq 'ARRAY') { } |