| line |
true |
false |
branch |
|
47
|
1 |
0 |
if $params{'MAP'} |
|
48
|
0 |
1 |
if $params{'AUTOPURGE'} |
|
49
|
0 |
1 |
if $params{'DAYSFORORPHAN'} |
|
50
|
1 |
0 |
if $params{'ALLEVENTS'} |
|
51
|
0 |
1 |
if $params{'XMLENCODING'} |
|
52
|
1 |
0 |
if $params{'OUTPUTDIR'} |
|
53
|
1 |
0 |
if $params{'ORPHANDIR'} |
|
54
|
1 |
0 |
if $mapRef |
|
58
|
0 |
1 |
unless defined $outputDir |
|
59
|
0 |
1 |
unless defined $orphanDir |
|
97
|
0 |
1 |
unless defined $log |
|
102
|
0 |
1 |
unless open LOG, $log |
|
113
|
1 |
5658 |
if (/^(\s)*$/ and not $begining_skipped) { } |
|
160
|
0 |
1 |
unless my $output = 'IO::File'->new(">$xml") |
|
164
|
0 |
1 |
unless $writer = 'XML::Writer'->new('OUTPUT', $output, 'ENCODING', $xmlencoding, 'DATA_MODE', 1, 'DATA_INDENT', 1) |
|
192
|
3 |
43 |
if ($starteventref) |
|
208
|
0 |
46 |
if ($interimeventsref) |
|
242
|
1 |
0 |
if ($writeAllEvents) |
|
264
|
0 |
43 |
if ($interimeventsref) |
|
375
|
0 |
0 |
unless ($newHash{'Event-Timestamp'}) |
|
386
|
0 |
0 |
if ($delta > $threshold) |
|
421
|
0 |
0 |
unless ($newNewHash{'Event-Timestamp'}) |
|
430
|
0 |
0 |
$newHash{'Event-Timestamp'} ? : |
|
432
|
0 |
0 |
if ($delta > $threshold) |
|
442
|
0 |
0 |
unless scalar keys %newHash |
|
456
|
3 |
43 |
if (scalar keys %$eventref) |
|
464
|
3 |
43 |
scalar keys %$eventref ? : |
|
476
|
0 |
89 |
if (scalar keys %$eventref) |
|
484
|
0 |
89 |
scalar keys %$eventref ? : |
|
498
|
0 |
222 |
unless (scalar keys %map) |
|
512
|
222 |
0 |
if ($map{$key}) { } |
|
520
|
222 |
0 |
if $value |
|
539
|
0 |
1 |
if (-e $startDbm) { } |
|
540
|
0 |
0 |
unless $startref = lock_retrieve($startDbm) |
|
542
|
0 |
0 |
if $purgeOrphan |
|
551
|
0 |
1 |
if (-e $interimDbm) { } |
|
552
|
0 |
0 |
unless $interimref = lock_retrieve($interimDbm) |
|
554
|
0 |
0 |
if $purgeOrphan |
|
574
|
0 |
0 |
if ($vals[$_] > $big) |
|
591
|
221 |
5437 |
if ($line =~ /^[A-Za-z]{3}.*[A-Za-z]{3}/ and $line =~ /[0-9]{2}[:][0-9]{2}[:][0-9]{2}/) { } |
|
|
222 |
5215 |
elsif ($line =~ /^\n/ or $line =~ /^[\t\s]+[\n]?$/) { } |
|
|
5215 |
0 |
elsif (my($tag, $val) = $line =~ /^\t([0-9A-Za-z:-]+)\s+=\s+["]?([A-Za-z0-9=\\\.-\_\s]*)["]?.*\n/) { } |
|
609
|
46 |
176 |
if ($val =~ /.*[S,s]tart.*/) { } |
|
|
46 |
130 |
elsif ($val =~ /.*[S,s]top.*/) { } |
|
|
130 |
0 |
elsif ($val =~ /.*[I,i]nterim/) { } |
|
655
|
5215 |
0 |
if ($tag) |
|
667
|
0 |
2 |
if (scalar keys %interim) |
|
668
|
0 |
0 |
unless lock_store(\%interim, $interimDbm) |
|
673
|
0 |
2 |
if (scalar keys %start) |
|
674
|
0 |
0 |
unless lock_store(\%start, $startDbm) |