| line |
true |
false |
branch |
|
24
|
30 |
1762 |
if ($name =~ s/^\+//)
|
|
25
|
4 |
26 |
unless my $old_spec = $specs->{$name}
|
|
29
|
2 |
1786 |
if ($new_spec->{'required'} and not $ag->has_default($name, $new_spec) || !exists $new_spec->{'init_arg'} || defined $new_spec->{'init_arg'})
|
|
40
|
1622 |
164 |
unless defined $new_spec->{'index'}
|
|
68
|
38 |
428 |
$builder ? :
|
|
83
|
6 |
502 |
if (join(",", @new_isa) ne $isa)
|
|
86
|
4 |
2 |
if (($found_new || '') ne ($expected_new || ''))
|
|
114
|
4 |
2130 |
unless my $package = $self->{'package'}
|
|
115
|
652 |
1478 |
unless my $current = $self->current_constructor($package)
|
|
118
|
10 |
1468 |
unless my $constructor = $self->{'constructor'}
|
|
119
|
2 |
1466 |
if $constructor != $current
|
|
122
|
4 |
1462 |
if $self->{'inlined'}
|
|
128
|
4 |
504 |
unless $quote_opts
|
|
138
|
24 |
484 |
$into_buildargs && $into_buildargs != \&Moo::Object::BUILDARGS ? :
|
|
|
34 |
474 |
$into->can('BUILD') ? :
|
|
155
|
8 |
500 |
if ($into->can("DEMOLISH"))
|
|
167
|
504 |
4 |
if (my $gen = $self->{'subconstructor_handler'}) { }
|
|
178
|
1558 |
2 |
if $captures
|
|
214
|
12 |
1558 |
unless defined $attr_spec->{'init_arg'} or $ag->has_eager_default($name, $attr_spec)
|
|
220
|
1552 |
6 |
defined $arg ? :
|
|
221
|
1552 |
6 |
defined $arg ? :
|
|
236
|
54 |
1516 |
if $s->{'required'}
|
|
237
|
472 |
36 |
unless @required_init
|