package Graphics::ColorNames::My;
BEGIN { $INC{'Graphics/ColorNames/My.pm'} = __FILE__ }
use constant STEP => 15;
my %colors;
sub NamesRgbTable() { use integer;
return \%colors if %colors; for( my $r = 0; $r < 256; $r += STEP ) { for( my $g = 0; $g < 256; $g += STEP ) { for( my $b = 0; $b < 256; $b += STEP ) { $colors{"($r, $g, $b)"} = ( $r << 16 ) + ( $g << 8 ) + $b; } } } return \%colors; }
To install Acme::Colour::Fuzzy, copy and paste the appropriate command in to your terminal.
cpanm
cpanm Acme::Colour::Fuzzy
CPAN shell
perl -MCPAN -e shell install Acme::Colour::Fuzzy
For more information on module installation, please visit the detailed CPAN module installation guide.