Branch Coverage

blib/lib/mqs/spool.pm
Criterion Covered Total %
branch 16 30 53.3


line true false branch
57 0 1 if ($dir eq '')
61 0 1 unless (-d $dir)
63 0 0 unless mkdir $dir, $spool_chmod
70 0 32 unless (-d $it)
72 0 0 unless mkdir $it, $spool_chmod
97 0 1049 if ($spool{'directory'} eq '' or $spool{'type'} ne 'dir')
101 1049 0 if (-d $spool{'directory'}) { }
116 0 1049 unless open OUT, ">$filename.tmp"
128 0 5 if ($spool{'directory'} eq '' or $spool{'type'} ne 'dir')
137 0 160 unless opendir DIR, $spool{'directory'} . '/' . $dir
140 1049 320 if ($files[$it] =~ /.*\.mqs$/)
149 1 4 if ($priority == 1) { }
172 24 96 if ($tab[$#tab - 1] == $i)
185 0 1049 unless unlink $file
195 0 1 unless open IN, "<$file"