| line |
true |
false |
branch |
|
135
|
0 |
6 |
@Log::Agent::EXPORT ? :
|
|
136
|
0 |
6 |
@Log::Agent::EXPORT ? :
|
|
168
|
7 |
71 |
if exists $hlist{"-$attr"}
|
|
171
|
0 |
6 |
unless defined $$self{'wfunc'}
|
|
172
|
0 |
6 |
unless defined $$self{'efunc'}
|
|
174
|
2 |
4 |
if ($self->autoclean)
|
|
221
|
1 |
3 |
unless (ref $self)
|
|
241
|
1 |
2 |
unless (ref $self)
|
|
265
|
3 |
4 |
if (defined $lock)
|
|
267
|
0 |
3 |
unless $tryonly
|
|
272
|
0 |
4 |
unless $locked
|
|
281
|
1 |
3 |
if $self->autoclean
|
|
295
|
1 |
2 |
unless (ref $self)
|
|
301
|
0 |
3 |
if (defined $format)
|
|
312
|
0 |
3 |
unless (defined $lock)
|
|
333
|
1 |
3 |
if $self->autoclean
|
|
352
|
0 |
0 |
defined $format ? :
|
|
368
|
0 |
0 |
$base eq '' ? :
|
|
375
|
0 |
0 |
$dir eq '' ? :
|
|
394
|
0 |
4 |
if $self->nfs
|
|
398
|
4 |
0 |
unless defined $format
|
|
399
|
0 |
4 |
if defined $format
|
|
402
|
0 |
4 |
if $self->stale
|
|
403
|
4 |
0 |
if $self->hold
|
|
409
|
4 |
0 |
if $warn
|
|
416
|
0 |
4 |
if (-f $lockfile)
|
|
417
|
0 |
0 |
unless $try
|
|
423
|
4 |
0 |
if (open FILE, ">$lockfile") { }
|
|
|
0 |
0 |
elsif ($try) { }
|
|
432
|
0 |
4 |
if defined $l
|
|
434
|
4 |
0 |
if $locked
|
|
444
|
0 |
0 |
if ($warn and !$lastwarn && $waited > $wmin || $waited - $lastwarn > $wafter)
|
|
449
|
0 |
0 |
$lastwarn ? :
|
|
450
|
0 |
0 |
$lastwarn ? :
|
|
451
|
0 |
0 |
$waited == 1 ? :
|
|
457
|
0 |
0 |
if $self->stale
|
|
458
|
0 |
0 |
if $self->hold
|
|
477
|
0 |
4 |
if $self->nfs
|
|
481
|
4 |
0 |
unless defined $format
|
|
482
|
0 |
4 |
if defined $format
|
|
487
|
4 |
0 |
if (-f $lockfile) { }
|
|
492
|
4 |
0 |
if ($l eq $stamp) { }
|
|
494
|
0 |
4 |
unless (unlink $lockfile)
|
|
522
|
4 |
0 |
unless defined $mtime
|
|
526
|
0 |
0 |
if (time - $mtime > $hold)
|
|
530
|
0 |
0 |
unless (unlink $lockfile)
|
|
535
|
0 |
0 |
if ($self->warn)
|
|
536
|
0 |
0 |
$hold == 1 ? :
|
|
559
|
0 |
0 |
unless open FILE, $lockfile
|
|
566
|
0 |
0 |
if ($self->nfs) { }
|
|
569
|
0 |
0 |
if $local ne $hostname
|
|
570
|
0 |
0 |
if kill 0, $pid
|
|
575
|
0 |
0 |
if kill 0, $pid
|
|
580
|
0 |
0 |
unless (unlink $lockfile)
|