| line |
true |
false |
branch |
|
31
|
0 |
35 |
if ($Object::LocalVars::Config{'useithreads'}) |
|
36
|
0 |
0 |
if ($INC{'threads/shared.pm'} and not $INC{'Test/Builder.pm'}) |
|
62
|
1 |
4 |
unless ref $prefix eq 'HASH' |
|
79
|
1 |
1 |
unless (grep {$_ eq $base;} @{$class . '::ISA';}) |
|
84
|
0 |
1 |
if $@ ne '' |
|
108
|
0 |
24 |
@_ ? : |
|
|
24 |
26 |
wantarray ? : |
|
136
|
0 |
41 |
if ref $class |
|
149
|
0 |
2 |
if ref $class |
|
155
|
0 |
2 |
defined $prebuild ? : |
|
180
|
3 |
51 |
if exists ${$class . '::TRACKER';}{$addr} |
|
188
|
11 |
0 |
if (my $super_buildall = $superclass->can('BUILDALL')) |
|
190
|
1 |
10 |
defined $prebuild ? : |
|
198
|
20 |
31 |
if defined *{$class . '::BUILD';}{'CODE'} |
|
235
|
2 |
53 |
unless exists ${$class . '::TRACKER';}{$addr} |
|
242
|
18 |
35 |
if defined *{$class . '::DEMOLISH';}{'CODE'} |
|
249
|
11 |
2 |
if (my $super_destroyer = $superclass->can('DESTROY')) |
|
264
|
106 |
3 |
if ($attr =~ /^(?:Method|Pub)$/) { } |
|
|
1 |
2 |
elsif ($attr eq 'Prot') { } |
|
|
2 |
0 |
elsif ($attr eq 'Priv') { } |
|
288
|
45 |
25 |
if ($attr eq 'Pub') { } |
|
|
1 |
24 |
elsif ($attr eq 'Prot') { } |
|
|
2 |
22 |
elsif ($attr =~ /^(?:Prop|Priv)$/) { } |
|
|
1 |
21 |
elsif ($attr =~ /^(?:ReadOnly)$/) { } |
|
|
18 |
3 |
elsif ($attr =~ /^(?:Class|ClassPriv)$/) { } |
|
|
1 |
2 |
elsif ($attr =~ /^(?:ClassProt)$/) { } |
|
|
1 |
1 |
elsif ($attr =~ /^(?:ClassPub)$/) { } |
|
|
1 |
0 |
elsif ($attr =~ /^(?:ClassReadOnly)$/) { } |
|
335
|
0 |
179 |
if $symcache{join $;, $pkg, $ref} |
|
340
|
179 |
2005 |
if *{$sym;}{$type} and *{$sym;}{$type} == $ref |
|
350
|
3 |
45 |
$classwide ? : |
|
365
|
27 |
82 |
unless @props |
|
379
|
0 |
2 |
$classwide ? : |
|
396
|
3 |
45 |
$classwide ? : |
|
412
|
29 |
80 |
unless @props |
|
429
|
198 |
9 |
if (/public/) |
|
431
|
7 |
2 |
if (/protected/) |
|
437
|
2 |
0 |
if (/private/) |
|
454
|
0 |
70 |
unless my $symbol = _findsym($package, $scalarref) |
|
458
|
21 |
49 |
if ($classwide) { } |
|
468
|
6 |
64 |
defined $get ? : |
|
469
|
6 |
64 |
defined $set ? : |
|
472
|
20 |
50 |
if $privacy eq 'private' |
|
473
|
2 |
48 |
$privacy eq 'readonly' ? : |
|
474
|
2 |
48 |
$privacy eq 'readonly' ? : |
|
476
|
48 |
2 |
if ($acc ne $mut) { } |
|
498
|
0 |
50 |
if $@ |
|
510
|
0 |
109 |
unless my $symbol = _findsym($package, $coderef) |
|
525
|
0 |
109 |
if $@ |