| line |
true |
false |
branch |
|
251
|
0 |
0 |
if (defined $parameters{'PACKAGE'}) |
|
252
|
0 |
0 |
if ref($parameters{'PACKAGE'}) =~ /^$/ |
|
253
|
0 |
0 |
unless ref($parameters{'PACKAGE'}) =~ /^ARRAY$/i |
|
254
|
0 |
0 |
if 0 == scalar @{$parameters{'PACKAGE'};} |
|
256
|
0 |
0 |
unless ref($package) =~ /^$/ |
|
257
|
0 |
0 |
unless $package =~ /^[a-zA-Z]+[a-zA-Z0-9_]*(::[a-zA-Z]+[a-zA-Z0-9_]*)*$/ |
|
260
|
0 |
0 |
unless defined $$ACTOR{'INTERVAL'} |
|
261
|
0 |
0 |
if (not defined $parameters{'INTERVAL'}) { } |
|
|
0 |
0 |
elsif (not ref($parameters{'INTERVAL'}) =~ /^$/) { } |
|
|
0 |
0 |
elsif (not $parameters{'INTERVAL'} =~ /^\s*[\-+]?\d+\s*$/) { } |
|
|
0 |
0 |
elsif (0 + $parameters{'INTERVAL'} <= 0) { } |
|
272
|
0 |
0 |
if (opendir DIRECTORY, 'File::Spec'->tmpdir) { } |
|
|
0 |
0 |
elsif (not defined $$ACTOR{'TIMESTAMP'}) { } |
|
|
0 |
0 |
elsif (0 + $$ACTOR{'TIMESTAMP'} + $$ACTOR{'INTERVAL'} < 0 + $TIMESTAMP) { } |
|
276
|
0 |
0 |
if (0 < scalar @files) |
|
278
|
0 |
0 |
if (not defined $$ACTOR{'TIMESTAMP'}) { } |
|
|
0 |
0 |
elsif (0 + $TIMESTAMP < 0 + $$ACTOR{'TIMESTAMP'} + $$ACTOR{'INTERVAL'}) { } |
|
279
|
0 |
0 |
if (0 + $TIMESTAMP < 0 + $timestamp + $$ACTOR{'INTERVAL'}) { } |
|
288
|
0 |
0 |
if (0 + $$ACTOR{'TIMESTAMP'} <= 0 + $timestamp) { } |
|
305
|
0 |
0 |
unless defined $$ACTOR{'MODULES'} |
|
306
|
0 |
0 |
if ($refresh) |
|
307
|
0 |
0 |
if (open FILE_HANDLE, '<' . $filename) { } |
|
325
|
0 |
0 |
if ($update) |
|
331
|
0 |
0 |
unless $path =~ /\.pm$/ |
|
332
|
0 |
0 |
unless open FILE, $path |
|
337
|
0 |
0 |
if (/^=cut.*$/) |
|
341
|
0 |
0 |
if /^=[a-zA-Z]+.*$/ |
|
342
|
0 |
0 |
if $pod |
|
343
|
0 |
0 |
unless $_ =~ /^\s*package\s+[a-zA-Z0-9_:]+\s*;.*$/ |
|
347
|
0 |
0 |
unless defined $package |
|
348
|
0 |
0 |
if defined ${$$ACTOR{'MODULES'};}{$package} |
|
358
|
0 |
0 |
if (defined $filename) |
|
359
|
0 |
0 |
if (open FILE_HANDLE, '<' . $filename) { } |
|
363
|
0 |
0 |
if (open FILE_HANDLE, '+>' . $filename) |
|
372
|
0 |
0 |
if (defined $parameters{'PACKAGE'}) |
|
374
|
0 |
0 |
unless defined ${$$ACTOR{'MODULES'};}{$package} |
|
429
|
0 |
0 |
unless defined $parameters{'PACKAGE'} |
|
430
|
0 |
0 |
unless ref($parameters{'PACKAGE'}) =~ /^$/ |
|
431
|
0 |
0 |
unless $parameters{'PACKAGE'} =~ /^[a-zA-Z]+[a-zA-Z0-9_]*(::[a-zA-Z]+[a-zA-Z0-9_]*)*$/ |
|
432
|
0 |
0 |
if (not defined $parameters{'BLESS'}) { } |
|
435
|
0 |
0 |
unless ref($parameters{'BLESS'}) =~ /^$/ |
|
436
|
0 |
0 |
unless $parameters{'BLESS'} =~ /^[a-zA-Z]+[a-zA-Z0-9_]*$/ |
|
438
|
0 |
0 |
if (defined $parameters{'PARAMETERS'}) |
|
439
|
0 |
0 |
if ref($parameters{'PARAMETERS'}) =~ /^HASH$/i |
|
440
|
0 |
0 |
unless ref($parameters{'PARAMETERS'}) =~ /^ARRAY$/i |
|
442
|
0 |
0 |
if (defined $parameters{'IMPORT'}) |
|
443
|
0 |
0 |
unless ref($parameters{'IMPORT'}) =~ /^ARRAY$/i |
|
445
|
0 |
0 |
unless ref($import) =~ /^$/ |
|
446
|
0 |
0 |
unless $import =~ /^[a-zA-Z_]+[a-zA-Z0-9_]*$/ |
|
455
|
0 |
0 |
if (defined $parameters{'IMPORT'}) { } |
|
460
|
0 |
0 |
if (defined $parameters{'PARAMETERS'}) { } |
|
466
|
0 |
0 |
unless (eval {
do {
(my $file = $package) =~ s[::][/]g;
require $file . '.pm';
if (defined $parameters{'IMPORT'}) {
$package->import(@{$parameters{'IMPORT'};});
}
else {
$package->import;
} ;
if (defined $parameters{'PARAMETERS'}) {
$self = $package->$bless(@{$parameters{'PARAMETERS'};});
}
else {
$self = $package->$bless;
} ;
1
}
}) |