File Coverage

blib/lib/Imager/Color/Table.pm

Criterion	Covered	Total	%
statement	9	9	100.0
branch	2	2	100.0
condition			n/a
subroutine	3	3	100.0
pod	1	1	100.0
total	15	15	100.0

package Imager::Color::Table;
use strict;
use 5.006;

our $VERSION = "1.004";

    my %colors;

{
  local $_;
  while () {
    next if /^#/ or !/\S/;
    chomp;
    my ($r, $g, $b, $name) = split ' ', $_, 4;
    if ($name) {
      $colors{lc $name} = [ $r, $g, $b ];
    }
  }
}

sub get {
  my ($class, $name) = @_;

  exists $colors{lc $name} or return;

  return @{$colors{lc $name}};
}

1;

__DATA__