App-ColorNamer
view release on metacpan or search on metacpan
lib/App/ColorNamer.pm view on Meta::CPAN
my $self = shift;
my $colors = shift;
my %good_colors = map +( lc $_ => 1 ), @{ $self->sane_colors };
return [ grep $good_colors{ $_->{hex} }, @$colors ];
}
sub _get_sane_colors {
return [qw/
000000 000080 0000C8 0000FF 008080 00FF00 00FFFF 0C0B1D 130A06
1560BD 161D10 240A40 242E16 251607 262335 30D5C8 315BA1 370202
3C2005 3C4151 3F2109 3F2500 4169E1 41AA78 4F69C6 50C878 5F5F6E
6456B7 660099 661010 66FF00 6B8E23 6CDAE7 6E7783 76D7EA 7A58C1
808000 808080 8B8680 964B00 9AC2B8 A8989B A9A491 A9ACB6 ABA0D9
ADDFAD ADFF2F B10000 B57EDC B5B35C B7410E B87333 BDBBD7 BFFF00
C0C0C0 C5E17A C62D42 C71585 CC5500 D2B48C D7D0FF E0B0FF E0FFFF
F5F5DC F7468A FDE910 FEFCED FF0000 FF00FF FF3F34 FF681F FF69B4
FFBF00 FFC0CB FFD700 FFD800 FFE5B4 FFFF00 FFFFF0 FFFFFF
/];
}
t/00-load.t view on Meta::CPAN
{
"rgb" => {
"r" => 172,
"b" => 159,
"g" => 165
},
"name" => "Cloudy",
"hsl" => {
"l" => int "0.649019607843137",
"h" => int "27.6923076923077",
"s" => int "0.0726256983240224"
},
"hex" => "aca59f"
}
);
}
( run in 0.692 second using v1.01-cache-2.11-cpan-7add2cbd662 )