Color-Rgb

 view release on metacpan or  search on metacpan

Rgb.pm  view on Meta::CPAN


    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 distribution
 view release on metacpan -  search on metacpan

( run in 0.914 second using v1.00-cache-2.02-grep-82fe00e-cpan-503542c4f10 )