Color-Rgb
view release on metacpan - search on metacpan
view release on metacpan or search on metacpan
while ( <RGB> ) {
/^(\n|!|\#)/ and next; # empty lines and comments
chomp();
my ($r, $g, $b, $name) = $_ =~ /^\s*(\d+)\s+(\d+)\s+(\d+)\s+(.+)$/;
$self->{_rgb_map}->{ lc($name) } = [$r, $g, $b];
}
close (RGB) or croak "$self->{rgb_txt}: $!";
return bless $self => $class;
}
view all matches for this distributionview release on metacpan - search on metacpan
( run in 0.914 second using v1.00-cache-2.02-grep-82fe00e-cpan-503542c4f10 )