| line |
true |
false |
branch |
|
86
|
4 |
138 |
if (exists $args->{$features} and not ref $args->{$features})
|
|
90
|
4 |
67 |
if (my $includes = $args->{'includes'})
|
|
91
|
1 |
3 |
if (not ref $includes) { }
|
|
|
2 |
1 |
elsif (XXX) { }
|
|
113
|
2 |
69 |
unless (eval {
|
|
152
|
0 |
69 |
if ($config->{'debug'})
|
|
156
|
0 |
69 |
if (_should_debug())
|
|
158
|
0 |
0 |
if (exists $config->{$feature})
|
|
237
|
1 |
4 |
if ($requested) { }
|
|
|
1 |
3 |
elsif ($defaults) { }
|
|
247
|
65 |
4 |
unless my $includes = $config->{'includes'}
|
|
280
|
0 |
5 |
unless my $required = $requirements_for->{$feature}
|
|
281
|
0 |
5 |
if ($^V and $^V lt $required->{'version'})
|
|
286
|
3 |
2 |
if (my $skip = $required->{'skip'})
|
|
287
|
0 |
3 |
if &$skip($for_class)
|
|
300
|
4 |
28 |
XXX ? :
|
|
315
|
0 |
16 |
XXX ? :
|
|
317
|
2 |
14 |
if (defined(my $init_arg = $options{'init_arg'}))
|
|
318
|
1 |
1 |
unless $init_arg =~ /\A_/u
|
|
327
|
12 |
3 |
if ($options{'builder'} or $options{'default'})
|
|
345
|
1 |
50 |
unless (_is_valid_method_name($name))
|
|
362
|
2 |
48 |
if (XXX)
|
|
365
|
2 |
0 |
if (_is_valid_method_name($builder_name))
|
|
372
|
225 |
23 |
unless exists $opt_for{$option}
|
|
374
|
20 |
3 |
if (1 == length $opt_for{$option} and 1 == $opt_for{$option})
|
|
378
|
1 |
22 |
unless (_is_valid_method_name($opt_for{$option}))
|
|
388
|
2 |
47 |
if ("rwp" eq $opt_for{'is'})
|
|
392
|
11 |
38 |
if (exists $opt_for{'writer'} and defined $opt_for{'writer'})
|
|
398
|
0 |
49 |
if (not exists $opt_for{'accessor'} || exists $opt_for{'writer'} || exists $opt_for{'default'} || exists $opt_for{'builder'} || defined $opt_for{'init_arg'} and $opt_for{'is'} eq "ro")
|
|
408
|
0 |
0 |
if $] ge "5.028" and warnings::enabled_at_level("MooseX::Extended::naked_fields", $call_level)
|
|
419
|
1 |
77 |
if ref $name
|
|
424
|
45 |
4 |
unless my $clone = delete $opt_for{'clone'}
|
|
429
|
2 |
2 |
if (1 == length $clone and 1 == $clone) { }
|
|
|
1 |
1 |
elsif (_is_valid_method_name($clone)) { }
|
|
|
1 |
0 |
elsif (XXX) { }
|
|
458
|
0 |
24 |
unless ref $value
|
|
460
|
11 |
0 |
$use_method || $use_coderef ? :
|
|
|
13 |
11 |
$use_dclone ? :
|
|
468
|
0 |
0 |
$use_method || $use_coderef ? :
|
|
|
2 |
0 |
$use_dclone ? :
|
|
|
0 |
2 |
!ref($new_value) ? :
|
|
473
|
2 |
0 |
ref $new_value ? :
|
|
497
|
2 |
2 |
if ($is eq 'ro') { }
|
|
|
1 |
1 |
elsif ($reader ne $writer) { }
|
|
511
|
4 |
2 |
@value == 0 ? :
|
|
525
|
157 |
0 |
unless _should_debug()
|
|
526
|
0 |
0 |
if (@data)
|