Branch Coverage

blib/lib/Config/Cascade.pm
Criterion Covered Total %
branch 0 90 0.0


line true false branch
111 0 0 unless $Options{'configDir'}
113 0 0 unless $Options{'globalConfigFile'} or $Options{'noConfig'}
116 0 0 unless ($Options{'noValidation'})
117 0 0 if ($Options{'validation'}) { }
120 0 0 unless constructValidation()
123 0 0 unless ($Options{'noConfig'})
124 0 0 unless -d $Options{'configDir'}
125 0 0 unless -e "$Options{'configDir'}/$Options{'configFile'}"
131 0 0 unless ($Options{'noValidation'})
132 0 0 unless validateConfig(%global)
137 0 0 unless ($Options{'noValidation'})
138 0 0 unless validateConfig(%specific)
145 0 0 unless ($Options{'noCommandLine'})
147 0 0 unless ($Options{'noValidation'})
148 0 0 unless validateConfig(%specific)
152 0 0 if ($Options{'debug'})
159 0 0 if (exists $global{$key} and $Options{'debug'})
167 0 0 if ($global{$key} and $Options{'debug'})
181 0 0 unless open IN, $target
185 0 0 if $line eq ''
189 0 0 if (not $Options{'noValidation'} and $configValidation{$command}{'type'} eq 'alias') { }
192 0 0 if ($hash{$command} and $hash{$command} ne $opt)
198 0 0 if $Options{'debug'}
208 0 0 unless $target = $Options{'validationFile'}
210 0 0 unless -e "$dir/$target"
214 0 0 if (open IN, "$dir/$target") { }
223 0 0 if $line eq ''
225 0 0 if (my($option, $format, $arg) = $line =~ /^(\w+)\s+(string|int|alias|fqdn|bool|regexp)\s*(.*)/i) { }
264 0 0 if ($configValidation{$option}{'type'} eq 'regexp')
265 0 0 if ($configValidation{$option}{'arg'} =~ /^RE::(.*)\s*/) { }
270 0 0 if (defined $$regexp{$REid}) { }
278 0 0 unless (eval { do { qr/$configValidation{$option}{'arg'}/ } })
294 0 0 if ($configValidation{$key}) { }
296 0 0 if ($configValidation{$key}{'type'} eq 'alias')
302 0 0 if ($configValidation{$key}{'type'} eq 'bool')
308 0 0 if ($configValidation{$key}{'type'} eq 'int')
309 0 0 unless ($hash{$key} =~ /$Config::Cascade::RE{'num'}{'int'}/)
317 0 0 if ($configValidation{$key}{'type'} eq 'string')
318 0 0 unless ($hash{$key} =~ /\w+/)
326 0 0 if ($configValidation{$key}{'type'} eq 'fqdn')
327 0 0 unless ($hash{$key} =~ /$Config::Cascade::RE{'net'}{'domain'}/)
335 0 0 if ($configValidation{$key}{'type'} eq 'regexp')
336 0 0 unless ($hash{$key} =~ /$configValidation{$key}{'args'}/)
362 0 0 if ($arg =~ /^--(\w+)=(.*)/) { }
0 0 elsif ($arg =~ /^-(\w)=(.*)/) { }