| line |
true |
false |
branch |
|
65
|
0 |
0 |
unless defined $filename and length $filename > 0 |
|
67
|
0 |
0 |
unless defined $ext |
|
68
|
0 |
0 |
unless -r $filename or $filename =~ /[.]$ext$/ |
|
70
|
0 |
0 |
unless open my $FILE, $filename |
|
93
|
0 |
0 |
unless defined $outputfile |
|
97
|
0 |
0 |
unless open $OUTPUTFILE, "> $outputfile" |
|
99
|
0 |
0 |
unless close $OUTPUTFILE |
|
111
|
0 |
0 |
if (defined $1) { } |
|
125
|
0 |
0 |
if $cr <= 0 |
|
136
|
0 |
0 |
unless ref $code eq 'CODE' |
|
140
|
0 |
0 |
unless /^[\w:]+$/ |
|
141
|
0 |
0 |
/^\w+$/ ? : |
|
150
|
0 |
0 |
unless (ref $code) |
|
152
|
0 |
0 |
if (defined $code and $code =~ /^\w+$/) |
|
159
|
0 |
0 |
unless ref $code eq 'CODE' |
|
163
|
0 |
0 |
unless $name =~ /^\w+$/ |
|
166
|
0 |
0 |
unless @classes |
|
168
|
0 |
0 |
unless /^[\w:]+$/ |
|
177
|
0 |
0 |
unless defined $name |
|
178
|
0 |
0 |
unless $name =~ /^\w+$/ |
|
181
|
0 |
0 |
unless @classes |
|
184
|
0 |
0 |
unless /^[\w:]+$/ |
|
185
|
0 |
0 |
unless ($_->can($name)) |
|
199
|
0 |
0 |
unless defined $_ |
|
218
|
0 |
0 |
if (ref $_[-1] eq 'CODE') { } |
|
226
|
0 |
0 |
unless defined $name |
|
227
|
0 |
0 |
unless $name =~ /^\w+$/ |
|
232
|
0 |
0 |
unless @classes |
|
234
|
0 |
0 |
unless /^[\w:]+$/ |
|
236
|
0 |
0 |
if ($_->can($name)) { } |
|
249
|
0 |
0 |
wantarray ? : |
|
254
|
0 |
0 |
unless defined $name |
|
255
|
0 |
0 |
unless $name =~ /^\w+$/ |
|
260
|
0 |
0 |
unless @classes |
|
264
|
0 |
0 |
$_->can($name) ? : |
|
265
|
0 |
0 |
if (defined $methods{$fullname} and UNIVERSAL::isa($methods{$fullname}, 'ARRAY') and @{$methods{$fullname};}) |
|
272
|
0 |
0 |
wantarray ? : |