| line |
true |
false |
branch |
|
22
|
1 |
4 |
unless @_
|
|
23
|
1 |
3 |
unless @_ % 2 == 0
|
|
28
|
1 |
6 |
ref $_[0] eq 'HASH' ? :
|
|
29
|
0 |
7 |
unless @_
|
|
34
|
2 |
5 |
if (ref $_[0] eq '_Named') { }
|
|
35
|
1 |
1 |
unless @_ == 1
|
|
42
|
1 |
3 |
if ($ref eq '_Optional')
|
|
47
|
0 |
3 |
if ($ref eq '_Slurpy')
|
|
68
|
1 |
10 |
if ($ref eq '_Named')
|
|
71
|
1 |
9 |
if ($ref eq '_Optional')
|
|
76
|
1 |
8 |
if ($ref eq '_Slurpy')
|
|
77
|
0 |
1 |
unless $pos == $#_
|
|
99
|
1 |
4 |
if ($meta->{'args_as'} eq 'hash') { }
|
|
100
|
0 |
1 |
unless $src =~ s/^(\s*my \$args = )shift;/$1{\@_};/m
|
|
102
|
0 |
1 |
unless $src =~ s/(\A.+^\s*return )undef;/$1\$args;/ms
|
|
105
|
0 |
4 |
unless $src =~ s/^(\s*my \$args = )shift;/$1[\@_];/m
|
|
107
|
0 |
4 |
unless $src =~ s/(\A.+^\s*return )undef;/$1\@\$args;/ms
|
|
110
|
1 |
4 |
if $opts->{'want_source'}
|
|
114
|
0 |
4 |
if $@
|