Branch Coverage

blib/lib/Graphics/ColorNames.pm
Criterion Covered Total %
branch 53 74 71.6


line true false branch
40 8 6 unless (&is_loaded($module))
42 0 8 unless &is_loaded($module)
52 0 11 $scheme =~ /^Color::Library::Dictionary::/ ? :
0 11 $scheme =~ /^\+/ ? :
58 0 11 if ($@)
62 11 0 if ($module->can('NamesRgbTable')) { }
0 0 elsif ($module->can('_load_color_list')) { }
82 11 2 if (@_) { }
84 3 12 if (ref $scheme) { }
9 3 elsif ($scheme =~ /^\+?(?:\w+[:][:])*\w+$/) { }
1 2 elsif (file_name_is_absolute($scheme)) { }
111 1402 5533 if ($key =~ /^(?:\x23|0x)?([0-9a-f]{6})$/) { }
124 5525 8 if (defined $val) { }
146 23 7485 unless (defined $key)
156 16 3 if (ref $scheme eq 'HASH') { }
0 3 elsif (ref $scheme eq 'CODE') { }
0 3 elsif (ref $scheme eq 'ARRAY') { }
173 0 0 unless exists $s->{$name}
174 0 0 if ($key =~ /^(.+\:.+)\.([0-9]+)$/)
184 0 0 if (ref $scheme eq 'GLOB' or ref $scheme eq 'IO::File' or $scheme->isa('IO::File') or ref $scheme eq 'FileHandle' or $scheme->isa('FileHandle'))
193 0 3 if ($@) { }
0 3 elsif ($!) { }
212 3 7 if (-d $path)
216 3 6 if (-r 'File::Spec'->catdir($path, $fn) and $fn =~ /(.+)\.pm$/)
265 1 0 unless (%FoundSchemes)
281 1 3 unless (ref $file)
282 0 1 unless (-r $file)
288 3 1 ref $file ? :
289 1 3 unless (ref $file)
290 0 1 unless open $fh, $file
299 24 16 if ($line ne '')
303 0 24 unless $name ne ''
322 1 3 unless (ref $file)
331 3 12 unless defined $rgb
333 10 2 unless defined $prefix
341 13 3 defined $rgb ? :
342 7 9 wantarray ? :