| line |
true |
false |
branch |
|
53
|
3 |
4 |
scalar @_ == 1 ? :
|
|
62
|
11 |
10 |
if (exists $args->{$key}) { }
|
|
|
2 |
8 |
elsif ($key eq 'package') { }
|
|
|
2 |
6 |
elsif ($key eq 'superclasses') { }
|
|
66
|
5 |
6 |
if ($key eq 'package')
|
|
67
|
2 |
3 |
if ($$built_classes{$args->{$key}})
|
|
69
|
1 |
1 |
unless ($re_use_classes)
|
|
91
|
1 |
6 |
if ($warning)
|
|
104
|
1 |
6 |
$pre_exists && !$warning ? :
|
|
107
|
0 |
1 |
if (not $class_name->meta->is_mutable and exists $args->{'add_attributes'} || exists $args->{'add_methods'} || exists $args->{'add_roles_in_sequence'})
|
|
115
|
1 |
6 |
if (exists $args->{'add_attributes'})
|
|
124
|
4 |
3 |
if (exists $args->{'add_methods'})
|
|
133
|
4 |
3 |
if (exists $args->{'add_roles_in_sequence'})
|
|
140
|
7 |
0 |
if ($make_classes_immutable)
|
|
151
|
0 |
3 |
ref $_[0] eq 'HASH' ? :
|
|
158
|
8 |
10 |
if (exists $args->{$key})
|
|
172
|
0 |
3 |
if ($@) { }
|
|
174
|
0 |
0 |
if (ref $message)
|
|
175
|
0 |
0 |
if ($message->can('as_string')) { }
|
|
|
0 |
0 |
elsif ($message->can('message')) { }
|
|
198
|
1 |
0 |
$bool ? :
|
|
208
|
0 |
0 |
$bool ? :
|