| line |
true |
false |
branch |
|
58
|
0 |
0 |
unless my $value = shift() |
|
60
|
0 |
0 |
if ($value) |
|
66
|
0 |
0 |
unless my $dir = shift() |
|
68
|
0 |
0 |
if ($dir) |
|
69
|
0 |
0 |
unless (-d $dir) |
|
79
|
0 |
0 |
unless my $value = shift() |
|
81
|
0 |
0 |
if ($value) |
|
105
|
1 |
0 |
unless my $value = shift() |
|
107
|
1 |
0 |
if (defined $value) |
|
115
|
0 |
0 |
if ($options) |
|
120
|
0 |
0 |
unless my $value = shift() |
|
122
|
0 |
0 |
if ($value) |
|
130
|
0 |
1 |
unless open my $F, '<', $file |
|
146
|
0 |
0 |
unless (defined $get_sub and defined $update_sub) |
|
161
|
0 |
0 |
if (not $background) { } |
|
164
|
0 |
0 |
unless open my $F, '>', $pid_file |
|
179
|
0 |
0 |
if ($pid) { } |
|
|
0 |
0 |
elsif ($pid == 0) { } |
|
183
|
0 |
0 |
unless open my $F, '>', $pid_file |
|
223
|
0 |
0 |
unless (-e $pid_file) |
|
231
|
0 |
0 |
if (@requests) |
|
263
|
1 |
4 |
if ($$r{'compile'}) |
|
275
|
0 |
5 |
if ($$self{'verbose'}) |
|
292
|
5 |
0 |
if (open my $F, '<', $$r{'sourcecode'}) { } |
|
298
|
1 |
8 |
if ($has_badword) |
|
301
|
0 |
1 |
if ($$self{'log'} != 0) |
|
332
|
0 |
1 |
if ($$r{'comment'} ne 'PC') |
|
338
|
1 |
0 |
if ($$r{'sourcecode'} =~ m[.*/(.+)\.\w+]) |
|
345
|
1 |
0 |
unless (-e $binary) |
|
367
|
2 |
3 |
if ($$r{'comment'} ne 'PC') |
|
382
|
0 |
3 |
unless (-e $systeminput . $i) |
|
388
|
0 |
3 |
unless (-e $systemoutput . $i) |
|
395
|
0 |
3 |
if ($$r{'compile'}) { } |
|
424
|
1 |
2 |
if $totaltime < 0 |
|
428
|
1 |
2 |
if ($@ =~ /time limit exceeded/) |
|
430
|
0 |
1 |
if ($$self{'log'} != 0) |
|
436
|
1 |
1 |
if ($self->compare($systemoutput . $i, $useroutput)) |
|
443
|
1 |
1 |
if ($score == $$r{'maxscore'}) { } |
|
468
|
2 |
2 |
!$diff ? : |
|
477
|
0 |
5 |
if ($$r{'compile'} and -e $$r{'binary'}) |
|
535
|
0 |
0 |
unless open my $F, '>>', $log_file |
|
540
|
0 |
0 |
if ($date =~ /.*\s+(\d+):(\d+)/) |
|
542
|
0 |
0 |
unless (-d catdir($home, 'logged')) |
|
561
|
0 |
0 |
if $hour == 0 |
|
562
|
0 |
0 |
if $hour < 10 |
|
563
|
0 |
0 |
if $min == 0 |
|
564
|
0 |
0 |
if $min < 10 |
|
565
|
0 |
0 |
if $mon < 10 |