| line |
true |
false |
branch |
|
59
|
58 |
0 |
unless @args
|
|
65
|
0 |
0 |
unless $ok{$name}
|
|
66
|
0 |
0 |
unless defined &{$name;}
|
|
68
|
0 |
0 |
if defined &{$target;}
|
|
77
|
0 |
0 |
unless @args
|
|
78
|
0 |
0 |
ref $args[0] eq 'HASH' ? :
|
|
84
|
0 |
90 |
@args % 2 ? :
|
|
88
|
0 |
90 |
if DEBUG()
|
|
94
|
0 |
1620 |
unless $class->can($fid)
|
|
97
|
74 |
1546 |
defined $fval ? :
|
|
134
|
0 |
90 |
if $bogus_args
|
|
135
|
0 |
90 |
if ref $d ne 'ARRAY' or $#{$d;} != 1
|
|
136
|
0 |
90 |
if length $d->[0] < 2
|
|
137
|
0 |
90 |
if length $d->[1] < 2
|
|
138
|
0 |
90 |
if $d->[0] =~ /\s/msx
|
|
139
|
0 |
90 |
if $d->[1] =~ /\s/msx
|
|
150
|
0 |
90 |
if $self->[28] and ref $self->[28] ne 'CODE'
|
|
153
|
0 |
90 |
if $self->[30] and ref $self->[30] ne 'ARRAY'
|
|
160
|
4 |
86 |
if ($self->[9])
|
|
161
|
0 |
4 |
unless $self->[9] = $self->io->validate('dir', $self->[9])
|
|
173
|
2 |
674 |
$type eq 'array' ? :
|
|
|
88 |
676 |
$type eq 'hash' ? :
|
|
180
|
88 |
676 |
if $type eq 'self'
|
|
197
|
0 |
0 |
unless ($ok)
|
|
214
|
0 |
0 |
if $stderr
|
|
223
|
0 |
0 |
if DEBUG()
|