| line |
true |
false |
branch |
|
54
|
1 |
0 |
if ($] ge '5.008009') { } |
|
328
|
21 |
127 |
if ($_[0] eq '-recurse') { } |
|
|
20 |
107 |
elsif ($_[0] eq '-meth') { } |
|
|
9 |
98 |
elsif ($_[0] eq '-clean') { } |
|
|
14 |
84 |
elsif ($_[0] eq '-lock') { } |
|
|
4 |
80 |
elsif ($_[0] eq '-nolock') { } |
|
|
10 |
70 |
elsif ($_[0] eq '-ro') { } |
|
|
8 |
62 |
elsif ($_[0] eq '-new') { } |
|
|
17 |
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') { } |
|
330
|
3 |
6 |
shift() ? : |
|
331
|
12 |
2 |
shift() ? : |
|
337
|
4 |
13 |
if not defined $pass or $pass ne "undef" and $pass ne "ref" |
|
342
|
2 |
13 |
if not defined $class or ref $class or not length $class |
|
347
|
3 |
8 |
if (ref $class eq "HASH") |
|
348
|
2 |
8 |
if not defined $class or ref $class or not length $class |
|
354
|
1 |
6 |
unless ref $isa eq "ARRAY" or not ref $isa |
|
355
|
5 |
1 |
unless ref $isa |
|
359
|
2 |
6 |
unless ref $destroy eq "CODE" |
|
363
|
91 |
9 |
unless defined $clean |
|
364
|
82 |
18 |
unless defined $lock |
|
366
|
16 |
84 |
if (ref $hash ne "HASH") |
|
367
|
9 |
7 |
if ($pass) |
|
368
|
6 |
3 |
if ($pass eq 'ref') { } |
|
369
|
4 |
2 |
if not defined $hash or ref $hash |
|
373
|
1 |
2 |
unless defined $hash |
|
379
|
1 |
9 |
if $ro and @_ and not $new |
|
383
|
6 |
5 |
if exists $keys{'DESTROY'} and $destroy || $clean || !$meth || ref $hash->{'DESTROY'} ne 'CODE' |
|
385
|
1 |
15 |
if $new and exists $keys{'new'} |
|
386
|
1 |
69 |
if $ro and not $lock |
|
387
|
3 |
8 |
$ro ? : |
|
|
19 |
50 |
if ($recurse) |
|
388
|
16 |
53 |
defined $class ? : |
|
391
|
8 |
14 |
if @_ |
|
|
11 |
3 |
exists $self->{$k} ? : |
|
392
|
13 |
70 |
if @_ |
|
|
12 |
72 |
$ro ? : |
|
393
|
18 |
66 |
if ($meth and ref $hash->{$k} eq "CODE") |
|
394
|
16 |
2 |
unless $ak{$k} |
|
397
|
54 |
15 |
if ($destroy or $clean) |
|
399
|
6 |
47 |
if $destroy |
|
400
|
51 |
2 |
if ($clean) |
|
401
|
1 |
50 |
if ($pack eq 'main') { } |
|
407
|
15 |
54 |
if ($new) |
|
410
|
7 |
10 |
if ref $class |
|
411
|
1 |
16 |
if @_ % 2 |
|
415
|
2 |
13 |
if ($ro) { } |
|
|
12 |
1 |
elsif ($lock) { } |
|
421
|
6 |
63 |
if ($isa) |
|
423
|
8 |
61 |
if ($ro) { } |
|
|
56 |
5 |
elsif ($lock) { } |
|
451
|
6 |
6 |
ref($h2o) =~ /$_PACKAGE_REGEX/ ? : |