| line |
true |
false |
branch |
|
18
|
0 |
0 |
ref $data eq 'ARRAY' ? : |
|
41
|
4 |
3 |
if @args |
|
43
|
0 |
7 |
wantarray ? : |
|
64
|
11 |
12 |
$into ? : |
|
93
|
0 |
6 |
$self->can($attr) ? : |
|
102
|
1 |
0 |
if @{$self->{'args'};} |
|
112
|
0 |
33 |
unless $code |
|
116
|
42 |
51 |
$name > $#args ? : |
|
126
|
3 |
3 |
unless ref $self |
|
128
|
5 |
1 |
if $data |
|
136
|
1 |
109 |
unless defined $name |
|
149
|
0 |
9 |
if UNIVERSAL::isa($data, $name) |
|
159
|
1 |
0 |
if @{$self->{'args'};} |
|
169
|
6 |
0 |
ref $results eq 'ARRAY' ? : |
|
|
6 |
24 |
wantarray ? : |
|
182
|
0 |
6 |
$self->can($attr) ? : |
|
193
|
9 |
1 |
if $data |
|
209
|
1 |
1 |
if @args |
|
218
|
1 |
4 |
unless @args |
|
220
|
0 |
4 |
if @args == 1 and ref $args[0] eq "HASH" |
|
224
|
0 |
4 |
unless defined $index |
|
244
|
8 |
0 |
$routine ? : |
|
253
|
21 |
0 |
$name ? : |
|
254
|
10 |
11 |
$from ? : |
|
255
|
21 |
0 |
$file =~ /\(eval\s*\d*\)/u ? : |