| line |
true |
false |
branch |
|
42
|
1 |
2 |
if (defined $directory) { } |
|
45
|
1 |
1 |
unless defined $self->{'spooldirectory'} |
|
54
|
1 |
2 |
if (defined $directory) { } |
|
57
|
1 |
1 |
unless defined $self->{'sounddirectory'} |
|
66
|
1 |
2 |
if defined $email |
|
74
|
0 |
0 |
if (@formats) |
|
84
|
0 |
0 |
if (defined $vmbox and defined $vmpass || defined $vmfn || defined $vmemail) { } |
|
|
0 |
0 |
elsif (defined $vmbox) { } |
|
85
|
0 |
0 |
if defined $vmpass |
|
86
|
0 |
0 |
if defined $vmfn |
|
87
|
0 |
0 |
if defined $vmemail |
|
104
|
0 |
0 |
if (-d $file) |
|
115
|
1 |
2 |
if (defined $configfile) { } |
|
118
|
1 |
1 |
unless defined $self->{'configfile'} |
|
132
|
0 |
0 |
unless open CF, "<$configfile" |
|
139
|
0 |
0 |
if ($line =~ /^;/) { } |
|
|
0 |
0 |
elsif ($line =~ /^\s*$/) { } |
|
|
0 |
0 |
elsif ($line =~ /^\[(\w+)\]$/) { } |
|
|
0 |
0 |
elsif ($line =~ /^format\s*[=>]+\s*(.*)/) { } |
|
|
0 |
0 |
elsif ($line =~ /^serveremail\s*[=>]+\s*(.*)/) { } |
|
|
0 |
0 |
elsif ($line =~ /^(\d+)\s*[=>]+\s*(.*)/) { } |
|
145
|
0 |
0 |
if $DEBUG > 3 |
|
155
|
0 |
0 |
if $DEBUG > 3 |
|
158
|
0 |
0 |
if $DEBUG |
|
168
|
0 |
0 |
unless open IN, "<$source" |
|
169
|
0 |
0 |
unless open OUT, ">>$dest" |
|
181
|
0 |
0 |
if $self->vmbox($vmbox) |
|
190
|
0 |
0 |
unless defined $vmbox and defined $folder |
|
194
|
0 |
0 |
if (opendir DIR, $spool) |
|
207
|
0 |
0 |
if ($count > 1) { } |
|
|
0 |
0 |
elsif ($count > 0) { } |
|
225
|
0 |
0 |
if (-d $vmdir) { } |
|
226
|
0 |
0 |
if $DEBUG |
|
228
|
0 |
0 |
unless mkdir $vmdir, 493 |
|
229
|
0 |
0 |
unless mkdir "$vmdir/INBOX", 493 |
|
252
|
0 |
0 |
if (opendir DIR, $path) |