| line |
true |
false |
branch |
|
116
|
0 |
16 |
if ($mapped_args{-'delegator'}) |
|
129
|
14 |
164 |
if ($arg =~ /^:/msx) { } |
|
130
|
1 |
13 |
if $export_class |
|
143
|
12 |
20 |
$export_class && $EXPORT_CLASS{$export_class} ? : |
|
150
|
55 |
317 |
if ($sub_to_export =~ /^-/msx) { } |
|
154
|
5 |
50 |
if ($option =~ /=/msx) |
|
157
|
0 |
55 |
unless exists $ALLOWED_CLASS_OPTIONS{$option} |
|
172
|
3 |
29 |
unless ($$options{'-new'}) |
|
185
|
1 |
1 |
$opt_class ? : |
|
207
|
1 |
89 |
unless defined $property |
|
215
|
58 |
31 |
if (_NEWSCHOOL_TYPE($args[0]) or scalar @args == 1) |
|
220
|
87 |
2 |
if (not scalar @args % 2) { } |
|
|
2 |
0 |
elsif (_HASHLIKE($args[-1])) { } |
|
227
|
30 |
59 |
if (defined $options{'isa'}) |
|
233
|
2 |
28 |
if (defined $isa and $isa =~ /::/msx) |
|
240
|
28 |
0 |
if ($isa) |
|
242
|
1 |
27 |
unless $type_init |
|
243
|
26 |
1 |
defined $default ? : |
|
251
|
1 |
85 |
if ($property =~ s/^-//msx) |
|
254
|
1 |
85 |
if ($property =~ s/^!//msx) |