| line |
true |
false |
branch |
|
28
|
84 |
191 |
$with_dollar ? : |
|
29
|
5 |
270 |
unless $name =~ /\A${bonus}[^\W\d]\w*\z/u |
|
35
|
2 |
75 |
unless $attrs =~ /
\A \s*+
: \s*+
(?&ident) (?! [^\s:(] ) (?¶m)?+ \s*+
(?:
(?: : \s*+ )?
(?&ident) (?! [^\s:(] ) (?¶m)?+ \s*+
)*+
\z
(?(DEFINE)
(?
[^\W\d]
\w*+
)
(?
\(
[^()\\]*+
(?:
(?:
\\ .
|
(?¶m)
)
[^()\\]*+
)*+
\)
)
)
/sux |
|
81
|
0 |
67 |
unless $_[0] =~ /\G ( \w+ (?: :: \w+)* ) \s* /cgux |
|
83
|
67 |
0 |
unless $name =~ /::/u |
|
86
|
2 |
65 |
unless defined &$name |
|
90
|
57 |
8 |
unless $_[0] =~ /\G \[ \s* /cgux |
|
95
|
8 |
8 |
if @args |
|
111
|
4 |
67 |
if ($_[0] =~ /\G \( \s* /cgux) { } |
|
113
|
0 |
4 |
unless $_[0] =~ /\G \) \s* /cgux |
|
127
|
65 |
4 |
!$compl ? : |
|
168
|
0 |
23 |
unless $type =~ /\G \z/cgux |
|
174
|
119 |
1043 |
exists $href->{$key} ? : |
|
181
|
0 |
0 |
if ($array->[$i] == $x) |
|
186
|
1 |
0 |
unless (defined $index) |
|
291
|
26 |
69 |
unless @_ |
|
294
|
51 |
50 |
if (ref $item) { } |
|
297
|
2 |
48 |
unless my $type = $import_map{$item} |
|
299
|
45 |
3 |
ref $type ? : |
|
312
|
123 |
46 |
unless ref $proto_type |
|
316
|
1 |
339 |
unless my $base = $type_map{$defaults} |
|
321
|
21 |
147 |
if (exists $type{'strict'}) |
|
329
|
0 |
168 |
unless $clean{'name'} =~ /\A(?:optional|required|prohibited)\z/u |
|
333
|
77 |
91 |
if $clean{'attrs'} |
|
335
|
162 |
4 |
if (not exists $type{'reify_type'}) { } |
|
339
|
0 |
4 |
if (not ref $rt) { } |
|
|
0 |
4 |
elsif (ref $rt ne 'CODE') { } |
|
340
|
0 |
0 |
$rt eq 'moose' ? : |
|
|
0 |
0 |
$rt eq 'auto' ? : |
|
351
|
148 |
18 |
if (not exists $type{'install_sub'}) { } |
|
355
|
17 |
1 |
if (not ref $is) { } |
|
|
0 |
1 |
elsif (ref $is ne 'CODE') { } |
|
366
|
75 |
91 |
unless ref $shift |
|
371
|
1 |
83 |
if (ref $item) { } |
|
372
|
0 |
1 |
unless @$item == 2 |
|
378
|
0 |
84 |
if $name eq "\$_" |
|
380
|
1 |
83 |
if (defined $type) |
|
381
|
0 |
1 |
unless &blessed($type) |
|
399
|
1 |
165 |
if %type |
|
410
|
25 |
135 |
$type->{'name'} eq 'required' ? : |
|
|
5 |
160 |
$type->{'name'} eq 'prohibited' ? : |
|
413
|
164 |
1 |
if $type->{'default_arguments'} |
|
414
|
150 |
15 |
if $type->{'check_argument_count'} |
|
415
|
165 |
0 |
if $type->{'check_argument_types'} |
|
416
|
75 |
90 |
if $type->{'invocant'} |
|
417
|
165 |
0 |
if $type->{'named_parameters'} |
|
418
|
165 |
0 |
if $type->{'types'} |
|
419
|
15 |
150 |
if $type->{'runtime'} |
|
428
|
164 |
1 |
!@{$type->{'shift_types'};} ? : |
|
437
|
3 |
5 |
unless (@_) |
|
463
|
36 |
511 |
defined $slurpy ? : |
|
478
|
12 |
4 |
unless $pair |
|
|
12 |
4 |
unless my($v, $t) = @{[] unless $pair;} |
|
498
|
0 |
18 |
unless my $key = &_cv_root($func) |
|
499
|
2 |
16 |
unless my $info = $metadata{$key} |