| line |
true |
false |
branch |
|
63
|
0 |
9 |
unless GetOptions \%options, keys %opts |
|
65
|
0 |
9 |
if $options{'version'} |
|
66
|
0 |
9 |
if $options{'?'} or $options{'help'} |
|
67
|
0 |
9 |
if $options{'HELP'} or $options{'man'} |
|
70
|
0 |
9 |
if $options{'debug'} > 8 |
|
72
|
1 |
8 |
unless (@ARGV) |
|
91
|
2 |
9 |
unless (-f $filename) |
|
96
|
0 |
9 |
unless ($savedir) |
|
103
|
6 |
3 |
if ($last_backup) |
|
112
|
3 |
3 |
if ($last_backup_sum eq $current_sum) |
|
119
|
0 |
6 |
if $options{'username'} |
|
121
|
3 |
3 |
if (-f $savefilename) |
|
128
|
0 |
6 |
if (system("cp $filename $savefilename") != 0) |
|
147
|
9 |
56 |
if $level <= $options{'debug'} |
|
172
|
1 |
13 |
unless $filename |
|
174
|
3 |
10 |
unless ($options{'sum'}) |
|
195
|
1 |
15 |
unless ($savedir and -d $savedir) |
|
201
|
0 |
15 |
unless opendir my $savedir_fh, $savedir |
|
206
|
0 |
15 |
unless closedir $savedir_fh |
|
208
|
0 |
15 |
if ($options{'debug'} > 2) |