| line |
true |
false |
branch |
|
62
|
1 |
2 |
if @_ |
|
82
|
6 |
6 |
unless ($secret and $random and $input and $input =~ /^[a-z]{6}$/) |
|
83
|
0 |
12 |
if $DEBUG |
|
93
|
2 |
4 |
unless $file |
|
105
|
2 |
2 |
if ($input eq $captcha) |
|
143
|
1 |
8 |
if (-e $file) |
|
144
|
0 |
1 |
if $DEBUG |
|
153
|
0 |
8 |
unless ($fh) |
|
154
|
0 |
0 |
if $DEBUG |
|
194
|
10 |
14 |
unless -d $tmp |
|
213
|
12 |
1 |
if $random |
|
216
|
4 |
9 |
unless ($random) |
|
218
|
0 |
4 |
if $DEBUG |
|
227
|
1 |
8 |
unless (-e $file) |
|
229
|
0 |
1 |
if $DEBUG |
|
236
|
1 |
7 |
if ($self->_time_to_cleanup($file)) |
|
238
|
0 |
1 |
if $DEBUG |
|
258
|
28 |
0 |
if ($dh) |
|
259
|
0 |
28 |
if $DEBUG |
|
268
|
62 |
6 |
unless $entry |
|
272
|
1 |
5 |
if $self->_time_to_cleanup($file) |
|
278
|
0 |
0 |
if $DEBUG |
|
293
|
3 |
14 |
if ($mtime and $mtime + $$self{'_expire'} < time) |
|
295
|
0 |
3 |
if $DEBUG |