| line |
true |
false |
branch |
|
54
|
3 |
4 |
scalar @_ == 1 ? :
|
|
63
|
11 |
10 |
if (exists $args->{$key}) { }
|
|
|
2 |
8 |
elsif ($key eq 'package') { }
|
|
|
2 |
6 |
elsif ($key eq 'superclasses') { }
|
|
67
|
5 |
6 |
if ($key eq 'package')
|
|
68
|
2 |
3 |
if ($$built_classes{$args->{$key}})
|
|
70
|
1 |
1 |
unless ($re_use_classes)
|
|
92
|
1 |
6 |
if ($warning)
|
|
105
|
1 |
6 |
$pre_exists && !$warning ? :
|
|
108
|
0 |
1 |
if (not $class_name->meta->is_mutable and exists $args->{'add_attributes'} || exists $args->{'add_methods'} || exists $args->{'add_roles_in_sequence'})
|
|
116
|
1 |
6 |
if (exists $args->{'add_attributes'})
|
|
125
|
4 |
3 |
if (exists $args->{'add_methods'})
|
|
134
|
4 |
3 |
if (exists $args->{'add_roles_in_sequence'})
|
|
141
|
7 |
0 |
if ($make_classes_immutable)
|
|
152
|
0 |
3 |
ref $_[0] eq 'HASH' ? :
|
|
159
|
8 |
10 |
if (exists $args->{$key})
|
|
173
|
0 |
3 |
if ($@) { }
|
|
175
|
0 |
0 |
if (ref $message)
|
|
176
|
0 |
0 |
if ($message->can('as_string')) { }
|
|
|
0 |
0 |
elsif ($message->can('message')) { }
|
|
202
|
1 |
0 |
$bool ? :
|
|
212
|
0 |
0 |
$bool ? :
|