| line |
true |
false |
branch |
|
23
|
143 |
308 |
$with_dollar ? : |
|
24
|
5 |
446 |
unless $name =~ /\A${bonus}[^\W\d]\w*\z/u |
|
30
|
2 |
136 |
unless $attrs =~ /
\A \s*+
: \s*+
(?&ident) (?! [^\s:(] ) (?¶m)?+ \s*+
(?:
(?: : \s*+ )?
(?&ident) (?! [^\s:(] ) (?¶m)?+ \s*+
)*+
\z
(?(DEFINE)
(?
[^\W\d]
\w*+
)
(?
\(
[^()\\]*+
(?:
(?:
\\ .
|
(?¶m)
)
[^()\\]*+
)*+
\)
)
)
/sux |
|
76
|
0 |
32 |
unless $_[0] =~ /\G ( \w+ (?: :: \w+)* ) \s* /cgux |
|
78
|
32 |
0 |
unless $name =~ /::/u |
|
81
|
2 |
30 |
unless defined &$name |
|
85
|
22 |
8 |
unless $_[0] =~ /\G \[ \s* /cgux |
|
90
|
8 |
8 |
if @args |
|
115
|
0 |
6 |
unless $type =~ /\G \z/cgux |
|
121
|
182 |
1834 |
exists $href->{$key} ? : |
|
128
|
0 |
8 |
if ($array->[$i] == $x) |
|
133
|
4 |
0 |
unless (defined $index) |
|
247
|
45 |
115 |
unless @_ |
|
250
|
56 |
109 |
if (ref $item) { } |
|
253
|
2 |
107 |
unless my $type = $import_map{$item} |
|
255
|
104 |
3 |
ref $type ? : |
|
268
|
240 |
51 |
unless ref $proto_type |
|
272
|
1 |
558 |
unless my $base = $type_map{$defaults} |
|
277
|
25 |
265 |
if (exists $type{'strict'}) |
|
285
|
0 |
290 |
unless $clean{'name'} =~ /\A(?:optional|required|prohibited)\z/u |
|
289
|
138 |
152 |
if $clean{'attrs'} |
|
291
|
284 |
4 |
if (not exists $type{'reify_type'}) { } |
|
295
|
0 |
4 |
if (not ref $rt) { } |
|
|
0 |
4 |
elsif (ref $rt ne 'CODE') { } |
|
296
|
0 |
0 |
$rt eq 'moose' ? : |
|
|
0 |
0 |
$rt eq 'auto' ? : |
|
307
|
276 |
12 |
if (not exists $type{'install_sub'}) { } |
|
311
|
12 |
0 |
if (not ref $is) { } |
|
|
0 |
0 |
elsif (ref $is ne 'CODE') { } |
|
324
|
137 |
151 |
unless ref $shift |
|
328
|
0 |
143 |
if (ref $item) { } |
|
329
|
0 |
0 |
unless @$item == 2 |
|
335
|
0 |
143 |
if $name eq '$_' |
|
337
|
0 |
143 |
if (defined $type) |
|
338
|
0 |
0 |
unless &blessed($type) |
|
355
|
1 |
287 |
if %type |
|
365
|
20 |
262 |
$type->{'name'} eq 'required' ? : |
|
|
5 |
282 |
$type->{'name'} eq 'prohibited' ? : |
|
368
|
286 |
1 |
if $type->{'default_arguments'} |
|
369
|
268 |
19 |
if $type->{'check_argument_count'} |
|
370
|
287 |
0 |
if $type->{'check_argument_types'} |
|
371
|
136 |
151 |
if $type->{'invocant'} |
|
372
|
287 |
0 |
if $type->{'named_parameters'} |
|
373
|
287 |
0 |
if $type->{'types'} |
|
374
|
11 |
276 |
if $type->{'runtime'} |
|
387
|
4 |
5 |
unless (@_) |
|
413
|
106 |
665 |
defined $slurpy ? : |
|
428
|
12 |
4 |
unless $pair |
|
|
12 |
4 |
unless my($v, $t) = @{[] unless $pair;} |
|
448
|
0 |
18 |
unless my $key = &_cv_root($func) |
|
449
|
2 |
16 |
unless my $info = $metadata{$key} |