| line |
true |
false |
branch |
|
43
|
1 |
6 |
if ($index = $start + $size) > $limit |
|
46
|
1 |
1 |
unless $index == $limit |
|
75
|
5 |
1 |
if (my $name = $keybycode{$key}) { } |
|
95
|
1 |
1 |
$2 ? : |
|
|
14 |
2 |
length $3 ? : |
|
96
|
1 |
15 |
if (/^key\d+/) { } |
|
115
|
3 |
8 |
if (defined $parameter{'0'}) |
|
118
|
1 |
3 |
if $unique{'0'} |
|
119
|
1 |
2 |
if --$unique{$_} |
|
120
|
1 |
1 |
unless defined $parameter{$_} |
|
125
|
9 |
6 |
unless defined $parameter{$_} |
|
126
|
4 |
2 |
if length $parameter{$_} > 1 |
|
130
|
2 |
4 |
if (defined $parameter{'4'}) |
|
131
|
1 |
1 |
if scalar keys %parameter > 1 |
|
140
|
9 |
1 |
unless $keybyname{lc $_} |
|
141
|
9 |
1 |
/(\d+)$/ ? : |
|
142
|
4 |
2 |
if @keys |
|
144
|
1 |
1 |
defined $packed ? : |
|
149
|
2 |
3 |
if @value |
|
157
|
2 |
3 |
if @value |
|
165
|
4 |
3 |
if @value |
|
174
|
6 |
3 |
if @value |
|
191
|
4 |
8 |
if ($self->can($canonical)) |
|
198
|
1 |
7 |
unless $method =~ /^key[0]*(\d+)$/i |
|
200
|
4 |
3 |
unless @argument |
|
202
|
2 |
1 |
defined $first ? : |
|
213
|
22 |
18 |
if (scalar @argument) |
|
215
|
1 |
21 |
unless defined $arg |
|
216
|
1 |
21 |
if defined $parameter{$key} |
|
217
|
1 |
20 |
if scalar @argument |
|
219
|
19 |
1 |
if defined $arg |
|
229
|
6 |
12 |
scalar @arg > 1 ? : |
|
234
|
7 |
2 |
wantarray ? : |
|
273
|
3 |
1 |
$_ ? : |