| line |
true |
false |
branch |
|
73
|
0 |
0 |
if $#_ >= 0
|
|
90
|
505 |
247 |
if (@_ > 1)
|
|
91
|
0 |
505 |
if @_ % 2
|
|
125
|
5 |
1496 |
unless ref $self
|
|
126
|
0 |
1496 |
if defined $value
|
|
127
|
505 |
991 |
unless defined $$self{'_verbosity'}
|
|
178
|
0 |
996 |
if ($self->verbosity >= 2)
|
|
179
|
0 |
0 |
$TIMESTAMP ? :
|
|
180
|
0 |
0 |
if (defined $self->DEBUGLOG) { }
|
|
196
|
0 |
0 |
if $verb == -1
|
|
197
|
0 |
0 |
if $verb >= 3
|
|
200
|
0 |
0 |
if defined $value
|
|
201
|
0 |
0 |
if ($verb >= 1)
|
|
266
|
0 |
0 |
if (not defined $value) { }
|
|
|
0 |
0 |
elsif (ref($value) =~ /hash/i) { }
|
|
|
0 |
0 |
elsif (ref($value) =~ /array/i) { }
|
|
296
|
0 |
0 |
unless -d $dir
|
|
298
|
0 |
0 |
if $file =~ /^\.\.?$/
|
|
300
|
0 |
0 |
if (-d $file) { }
|
|
317
|
345 |
1280 |
unless $#_ >= 0 and defined $_[0]
|
|
318
|
275 |
1005 |
unless $_[0] =~ /^-/
|
|
319
|
0 |
1005 |
unless $#_ % 2
|
|
337
|
0 |
246 |
if $main::main::{$module}
|
|
339
|
0 |
246 |
unless $name =~ /^([\w:]+)$/
|
|
346
|
1 |
245 |
if $@
|
|
356
|
0 |
258 |
unless $method
|
|
377
|
0 |
584 |
unless ref $self and $self->isa('HASH')
|
|
378
|
334 |
250 |
unless my $methods = $$self{'_cleanup_methods'}
|
|
388
|
334 |
250 |
unless my(@cleanup_methods) = $self->_cleanup_methods
|