| line |
true |
false |
branch |
|
54
|
13 |
16 |
if ($arg =~ /^-/msx) { } |
|
|
10 |
6 |
elsif ($arg =~ /^:/msx) { } |
|
58
|
1 |
9 |
if $export_class |
|
72
|
8 |
4 |
$export_class && $EXPORT_CLASS{$export_class} ? : |
|
87
|
10 |
2 |
if ($$options{'-new'}) |
|
131
|
1 |
16 |
unless $$properties{$attribute} |
|
145
|
0 |
1 |
unless $$properties{$attribute} |
|
160
|
34 |
0 |
if ($ref_self) { } |
|
173
|
16 |
27 |
if ($PROPERTIES_FOR{$isa} and $PROPERTIES_FOR{$isa}{$attribute}) |
|
179
|
18 |
16 |
unless $has_property |
|
199
|
15 |
17 |
if ($self->__hasattr__($opt_key)) |
|
205
|
12 |
6 |
if (my $build_ref = *{$class . '::BUILD';}{'CODE'}) |
|
209
|
4 |
8 |
if ($$options{'-rebuild'} and ref $ret) |
|
250
|
2 |
14 |
if (my $demolish_ref = *{$caller_class . '::DEMOLISH';}{'CODE'}) |
|
260
|
1 |
43 |
unless $property |
|
267
|
42 |
1 |
unless (*{$caller_class . "::$property";}{'CODE'}) |
|
272
|
42 |
1 |
unless (*{$caller_class . "::$set_property";}{'CODE'}) |
|
307
|
4 |
38 |
if ($$options{'-chained'}) { } |
|
310
|
4 |
8 |
if (@_) |
|
315
|
0 |
8 |
unless (exists $$self{$property_key}) |
|
316
|
0 |
0 |
ref $isa eq 'CODE' ? : |
|
329
|
1 |
46 |
if (@_) |
|
335
|
19 |
27 |
unless (exists $$self{$property_key}) |
|
336
|
17 |
2 |
ref $isa eq 'CODE' ? : |
|
353
|
4 |
38 |
if ($$options{'-chained'}) { } |