METHODS

$id = $color->id

Returns the id of the color

A color id is in the format of <dictionary_id:color_name>, e.g.

    svg:aliceblue
    x11:bisque2
    nbs-iscc-f:chromeyellow.66
    vaccc:darkspringyellow

$name = $color->name

Returns the name of the color, e.g.

    aliceblue
    bisque2
    chromeyellow
    darkspringyellow

$title = $color->title

Returns the title of the color, e.g.

    aliceblue
    bisque2
    chrome yellow
    Dark Spring-Yellow

$dictionary = $color->dictionary

Returns the Color::Library::Dictionary object that the color belongs to

$hex = $color->hex

Returns the hex value of the color, e.g.

    ff08ff
    eed5b7
    eaa221
    669900

Note that $hex does NOT include the leading #, for that use $color->html, $color->css, or $color->svg

$html = $color->html

$css = $color->css

$svg = $color->svg

Returns the hex value of the color with a leading #, suitable for use in HTML, CSS, or SVG documents, e.g.

    #ff08ff
    #eed5b7
    #eaa221
    #669900

$value = $color->value

Returns the numeric value of the color, e.g.

    15792383
    15652279
    15376929
    6723840

($r, $g, $b) = $color->rgb

Returns r, g, and b values of the color as a 3 element list (list context), e.g.

    (240, 248, 255)

$rgb = $color->rgb

Returns r, g, and b values of the color in a 3 element array (scalar context), e.g.

    [ 240, 248, 255 ]

$color = Color::Library::Color->new( id => $id, name => $name, title => $title, value => $value )

$color = Color::Library::Color->new( { id => $id, name => $name, title => $title, value => $value } )

$color = Color::Library::Color->new( [[ $id, $name, $title, $rgb, $hex, $value ]] )

Returns a new Color::Library::Color object representing the specified color

You probably don't want/need to call this yourself

FUNCTIONS

$hex = Color::Library::Color::rgb2hex( $rgb )

$hex = Color::Library::Color::rgb2hex( $r, $g, $b )

Converts an rgb value to its hex representation

$value = Color::Library::Color::rgb2value( $rgb )

$value = Color::Library::Color::rgb2value( $r, $g, $b )

Converts an rgb value to its numeric representation

$rgb = Color::Library::Color::value2rgb( $value )

($r, $g, $b) = Color::Library::Color::value2rgb( $value )

Converts a numeric color value to its rgb representation

($r, $g, $b) = Color::Library::Color::parse_rgb_color( $hex )

($r, $g, $b) = Color::Library::Color::parse_rgb_color( $value )

Makes a best effort to convert a hex or numeric color value to its rgb representation

# Partly taken from Imager/Color.pm sub parse_rgb_color {
    return (@_) if @_ == 3 && ! grep /[^\d.+eE-]/, @_;
    if ($_[0] =~ /^\#?([\da-f][\da-f])([\da-f][\da-f])([\da-f][\da-f])$/i) {
        return (hex($1), hex($2), hex($3));
    }
    if ($_[0] =~ /^\#?([\da-f])([\da-f])([\da-f])$/i) {
        return (hex($1) * 17, hex($2) * 17, hex($3) * 17);
    }
    return value2rgb $_[0] if 1 == @_ && $_[0] =~ m/^\d+$/; }

1;

__END__

sub parse_rgbs_color {
    return (@_) if @_ == 3 && ! grep /[^\d.+eE-]/, @_;
    if ($_[0] =~ /^\#?([\da-f][\da-f])([\da-f][\da-f])([\da-f][\da-f])([\da-f][\da-f])/i) {
        return (hex($1), hex($2), hex($3), hex($4));
    }
    if ($_[0] =~ /^\#?([\da-f][\da-f])([\da-f][\da-f])([\da-f][\da-f])/i) {
        return (hex($1), hex($2), hex($3), 255);
    }
    if ($_[0] =~ /^\#([\da-f])([\da-f])([\da-f])$/i) {
        return (hex($1) * 17, hex($2) * 17, hex($3) * 17, 255);
    }
    return value2rgb $_[0] if 1 == @_; }