Branch Coverage

blib/lib/DB/Color/Config.pm
Criterion Covered Total %
branch 3 38 7.8


line true false branch
17 0 1 ref $_[0] ? :
20 0 1 unless my $file = shift()
21 1 0 unless -e $file
22 0 0 unless -f _
23 0 0 unless -r _
27 0 0 unless open CFG, $file
36 0 0 ref $_[0] ? :
38 0 0 unless defined $_[0]
47 0 0 if /^\s*(?:\#|\;|$)/
53 0 0 if (/^\s*\[\s*(.+?)\s*\]\s*$/)
62 0 0 if (/^\s*([^=]+?)\s*=\s*(.*?)\s*$/)
76 0 0 unless my $file = shift()
82 0 0 unless defined $string
83 0 0 unless open CFG, '>' . $file
95 0 0 unless ($b eq '_') <=> ($a eq '_')
100 0 0 if $section =~ /(?:^\s|\n|\s$)/s
104 0 0 if length $contents
105 0 0 unless $section eq '_'
107 0 0 if $$block{$property} =~ /(?:\012|\015)/s