| line |
true |
false |
branch |
|
94
|
0 |
1 |
unless open my $ctl, '<', $table |
|
100
|
2 |
7 |
if ($tb =~ /^# glob\s+(.*?)\s+->\s+(.+)/) |
|
104
|
2 |
7 |
if $tb =~ /^#/ |
|
105
|
0 |
7 |
unless $tb =~ /\S/ |
|
110
|
0 |
7 |
if ($tb =~ /^-(?!\t)(.*)/) |
|
112
|
0 |
0 |
if $debug |
|
116
|
0 |
7 |
if ($tb =~ /^!(.*)/) |
|
119
|
0 |
0 |
if $debug |
|
125
|
5 |
2 |
if ($tb =~ /^(.+)\t([\d:]+)/) { } |
|
135
|
0 |
7 |
if ($name eq '.') { } |
|
136
|
0 |
0 |
if ($root eq '') |
|
143
|
7 |
0 |
unless ord $name == 47 |
|
148
|
2 |
5 |
if ($name =~ /\*|\?/) |
|
149
|
0 |
2 |
if $debug |
|
151
|
2 |
0 |
$testglob{$name} ? : |
|
154
|
0 |
5 |
unless $allfiles or -d $n |
|
156
|
0 |
5 |
unless (defined $oldblocks{$n}) |
|
160
|
0 |
5 |
if $debug |
|
172
|
0 |
5 |
if $debug |
|
175
|
0 |
1 |
if (@excludes) |
|
177
|
0 |
0 |
ord $excl == 47 ? : |
|
180
|
0 |
0 |
if $debug |
|
196
|
1 |
4 |
s[/][\000]g ? : |
|
198
|
5 |
0 |
unless $allfiles |
|
200
|
5 |
2 |
/^ (.*)/ ? : |
|
206
|
4 |
1 |
unless (index($name, $prev) == 0) |
|
218
|
0 |
1 |
if ($debug) |
|
225
|
1 |
0 |
if (not $gather and defined $data) { } |
|
226
|
0 |
1 |
if $debug |
|
227
|
0 |
1 |
unless open $fh, '<', $data |
|
234
|
0 |
0 |
if $allfiles |
|
235
|
0 |
0 |
if $follow |
|
237
|
0 |
0 |
if $debug |
|
239
|
0 |
0 |
unless $ret |
|
240
|
0 |
0 |
if (defined $data) |
|
241
|
0 |
0 |
unless open $out, '>', $data |
|
251
|
0 |
18 |
if defined $data |
|
254
|
5 |
13 |
if (exists $targets{' ' . $name} and not exists $excludes{$name}) |
|
257
|
0 |
5 |
if $debug |
|
262
|
0 |
1 |
if defined $data |
|
281
|
1 |
0 |
unless ($noupdate) |
|
282
|
0 |
1 |
unless (open $ctl, '>', $table) |
|
289
|
1 |
0 |
if (not $noupdate and %testglob) |
|
295
|
0 |
1 |
if ($allstats) { } |
|
311
|
0 |
7 |
if ($nam =~ /^-(.*)/) |
|
313
|
0 |
0 |
unless $noupdate |
|
314
|
0 |
0 |
if $debug |
|
319
|
2 |
5 |
if ($nam =~ /^\*\Q$prefix\E(.*)/o) |
|
320
|
2 |
0 |
unless $noupdate |
|
321
|
0 |
2 |
if $debug |
|
325
|
5 |
0 |
if ($nam =~ /^ (.*)/) { } |
|
329
|
0 |
0 |
unless $noupdate |
|
330
|
0 |
0 |
if $debug |
|
335
|
0 |
5 |
unless $nam =~ /\*/ or defined $oldblocks{$nam} |
|
337
|
0 |
5 |
unless $nam =~ /\*/ or defined $newblocks{$nam} |
|
341
|
5 |
0 |
if $gather |
|
342
|
0 |
5 |
if $nam eq $root |
|
343
|
5 |
0 |
if $nam =~ /^\Q$prefix\E(.*)/o |
|
344
|
0 |
5 |
if $debug and @a != 9 |
|
349
|
0 |
5 |
if ($try eq ':::::::') |
|
350
|
0 |
0 |
if ($retain) { } |
|
355
|
0 |
0 |
if $debug |
|
361
|
5 |
0 |
unless $noupdate |
|
362
|
0 |
5 |
if $debug |
|
365
|
5 |
0 |
unless ($allstats) |
|
367
|
5 |
0 |
if ($blocks ne '') |
|
368
|
5 |
0 |
if ($a[1] ne '') |
|
370
|
1 |
4 |
if $d_day > 0 |
|
372
|
0 |
5 |
if ($a[7] ne '') |
|
374
|
0 |
0 |
if $d_week > 0 |
|
386
|
1 |
0 |
unless $noupdate |
|
412
|
0 |
1 |
unless &GetOptions('allstats|a', \$allstats, 'allfiles|f', \$allfiles, 'gather|g', \$gather, 'follow|L', \$follow, 'retain|r', \$retain, 'update!', sub {
$noupdate = !$_[1];
}
, 'u', sub {
$noupdate = !$_[1];
}
, 'data|i=s', \$data, 'dir|p=s', \$root, 'verbose|v', \$verbose, 'trace', \$trace, 'help|h|?', \$help, 'man', \$man, 'debug', \$debug) |
|
421
|
0 |
1 |
if ($ident or $help or $man) |
|
424
|
0 |
1 |
if ($man or $help) |
|
425
|
0 |
0 |
if $help |
|
426
|
0 |
0 |
if $man |
|
428
|
0 |
1 |
if (@ARGV > 1) |
|
432
|
0 |
1 |
if (defined $root) { } |
|
435
|
0 |
0 |
if $root eq '' |
|
441
|
1 |
0 |
@ARGV ? : |
|
442
|
0 |
1 |
$allfiles ? : |
|
445
|
0 |
1 |
if ($debug) |
|
446
|
0 |
0 |
$debug ? : |
|
|
0 |
0 |
$noupdate ? : |
|
|
0 |
0 |
$retain ? : |
|
|
0 |
0 |
$gather ? : |
|
|
0 |
0 |
$allstats ? : |
|
|
0 |
0 |
$gather ? : |
|
|
0 |
0 |
$data ? : |