Branch Coverage

blib/lib/CAD/Firemen/Common.pm
Criterion Covered Total %
branch 1 114 0.8


line true false branch
62 0 1 if ($^O eq 'MSWin32')
88 0 0 unless (defined $string)
91 0 0 if ($string =~ m<^([\w\.\s\-\@\:\(\)\!\?\=\+\[\]\$\"\,\|/\\;~]+)$>gs)
103 0 0 unless (defined $col2Color)
128 0 0 if (length $elem > $max)
139 0 0 unless (defined $text)
142 0 0 if (not defined $color or $color eq '')
155 0 0 unless (defined $text)
158 0 0 unless (defined $indent)
161 0 0 if (not defined $color or $color eq '')
176 0 0 if ($textWidth > length $line)
183 0 0 if ($start + $end > length $text)
195 0 0 unless (defined $label)
198 0 0 unless (defined $value)
201 0 0 if (not defined $max or $max == 0)
210 0 0 if ($valueLen > 100)
229 0 0 if (defined $config)
230 0 0 if (exists $config->{'paths'})
239 0 0 if ($tempPaths[$i] =~ m[([\W\w]+)(?:\\|/)mech(?:\\|/)bin]i) { }
0 0 elsif ($tempPaths[$i] =~ m[([\W\w]+)(?:\\|/)Parametric{0,1}(?:\\|/)bin$]i) { }
0 0 elsif ($tempPaths[$i] =~ m[([\W\w]+)(?:\\|/)bin$]i) { }
247 0 0 if (index($existing, $tempPaths[$i]) != -1)
252 0 0 if ($alreadyInserted) { }
259 0 0 if (scalar @commonFilesDirectories == 1) { }
271 0 0 if ($tempPaths[$i] ne '')
274 0 0 if ($existing eq $tempPaths[$i])
279 0 0 if ($add)
285 0 0 if (scalar @paths == 1) { }
292 0 0 if (exists $config->{'defaultPath'})
294 0 0 if ($config->{'defaultPath'} eq $paths[$i])
312 0 0 if ($input eq '')
315 0 0 if ($input =~ /^\d+$/)
316 0 0 if ($input >= 0 and $input < scalar @paths) { }
334 0 0 if (not defined $installPath or $installPath eq '')
337 0 0 if ($installPath eq '')
345 0 0 if (not defined $installPath or $installPath eq '')
348 0 0 if ($installPath eq '')
356 0 0 unless (-d $dir)
357 0 0 unless (mkpath($dir))
366 0 0 unless (defined $path)
370 0 0 if ($path =~ m[^.+((?:creo|proe)[^(?:\\|/)]+).{0,}(M[0-9]{1,})]i) { }
384 0 0 unless (defined $verbose)
387 0 0 unless (defined $installation)
393 0 0 if ($installation eq '')
401 0 0 if (defined $ref)
403 0 0 if (exists $config{'databases'})
405 0 0 if (exists $dbs{$installation})
410 0 0 if ($dbFile eq '')
419 0 0 if ($verbose > 1)
429 0 0 unless ($dbh)
430 0 0 if ($verbose > 0)
441 0 0 unless (-e $file)
449 0 0 unless (defined $settingsRef)
459 0 0 unless opendir DIR, $dir
461 0 0 if /^\.{1,2}$/
463 0 0 if -d $path
476 0 0 if (defined $tmp[0])