| 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
|
137 |
9 |
unless defined $clean |
|
387
|
92 |
54 |
unless defined $lock |
|
388
|
45 |
101 |
if $arrays |
|
390
|
32 |
114 |
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 |
99 |
if $ro and not $lock |
|
417
|
48 |
51 |
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 |
83 |
defined $class ? : |
|
428
|
10 |
19 |
if @_ |
|
|
16 |
3 |
exists $self->{$k} ? : |
|
429
|
13 |
100 |
if @_ |
|
|
14 |
108 |
$ro ? : |
|
430
|
18 |
104 |
if ($meth and ref $hash->{$k} eq "CODE") |
|
431
|
16 |
2 |
unless $ak{$k} |
|
434
|
84 |
15 |
if ($destroy or $clean) |
|
436
|
6 |
78 |
if $destroy |
|
437
|
82 |
2 |
if ($clean) |
|
438
|
1 |
81 |
if ($pack eq 'main') { } |
|
444
|
15 |
84 |
if ($new) |
|
447
|
7 |
10 |
if ref $class |
|
448
|
1 |
16 |
if @_ % 2 |
|
452
|
2 |
13 |
if ($ro) { } |
|
|
12 |
1 |
elsif ($lock) { } |
|
458
|
6 |
93 |
if ($isa) |
|
460
|
10 |
89 |
if ($ro) { } |
|
|
84 |
5 |
elsif ($lock) { } |
|
521
|
8 |
1 |
unless (@_ == 1 and $_[0] and not ref $_[0] and $_[0] eq "--") |
|
523
|
30 |
40 |
if ($_[0] eq '-arrays') { } |
|
|
38 |
2 |
elsif ($_[0] eq '--') { } |
|
528
|
2 |
50 |
unless @_ |
|
530
|
2 |
48 |
if @_ |
|
531
|
28 |
20 |
$arrays ? : |
|
532
|
19 |
29 |
if (ref($h2o) =~ /$_PACKAGE_REGEX/) { } |
|
|
7 |
35 |
elsif ($arrays and ref $h2o eq 'ARRAY') { } |