Branch Coverage

blib/lib/Function/Parameters.pm
Criterion Covered Total %
branch 88 110 80.0


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}