| line |
true |
false |
branch |
|
41
|
1 |
11 |
unless "Moo"->is_class($klass) |
|
55
|
0 |
11 |
if ($INC{'MooX/StrictConstructor/Role/Constructor/Late.pm'}) |
|
65
|
0 |
11 |
unless grep {$maker_class eq $_;} @allowed_constructor_makers |
|
76
|
0 |
11 |
if $generated ne $expected |
|
84
|
0 |
15 |
if (my(@unsafe) = grep({not $_ =~ /$safe_spec/x;} keys %{$spec{$attr};})) |
|
93
|
0 |
15 |
if $generated ne $expected |
|
104
|
0 |
7 |
unless $self->is_suitable_class($klass) |
|
116
|
30 |
7 |
if $k =~ /$delete_from_spec/x |
|
118
|
0 |
10 |
if ($xs_spec{'lazy'}) |
|
126
|
0 |
7 |
if $maker->DOES("MooX::StrictConstructor::Role::Constructor::Late") |
|
142
|
7 |
0 |
if ($ok and my $meta = Class::XSConstructor::get_metadata($klass)) { } |
|
143
|
5 |
1 |
if (defined $meta->{'foreignclass'} and $meta->{'foreignclass'} eq 'Moo::Object' || $self->is_suitable_class($meta->{'foreignclass'})) |
|
152
|
6 |
1 |
if ($meta->{'buildargs'} and $meta->{'buildargs'} == \&Moo::Object::BUILDARGS) |
|
166
|
1 |
6 |
if ($klass->can("DEMOLISH")) |
|
178
|
1 |
6 |
if (@_ and $_[0] eq '-wrapconstructor') { } |