1
package Graphics::ColourNames;
8
require Graphics::ColorNames;
10
use base 'Graphics::ColorNames';
12
our $VERSION = '1.05';
15
our @EXPORT_OK = qw( hex2tuple tuple2hex );
18
goto &Graphics::ColorNames::hex2tuple;
22
goto &Graphics::ColorNames::tuple2hex;
31
Graphics::ColourNames - alias for Graphics::ColorNames
35
use Graphics::ColourNames qw( hex2tuple tuple2hex );
37
tie %NameTable, 'Graphics::ColourNames', 'X';
39
my $rgbhex1 = $NameTable{'green'}; # returns '00ff00'
40
my $rgbhex2 = tuple2hex( 0, 255, 0 ); # returns '00ff00'
41
my @rgbtup = hex2tuple( $rgbhex ); # returns (0, 255, 0)
43
my $rgbhex3 = $NameTable{'#123abc'}; # returns '123abc'
44
my $rgbhex4 = $NameTable{'123abc'}; # returns '123abc'
48
This module is an alias for L<Graphics::ColorNames>, using the British
51
It does not alter the spelling of individual colour names in colour
56
Robert Rothenberg <rrwo at cpan.org>
60
Copyright (c) 2004 Robert Rothenberg. All rights reserved.
61
This program is free software; you can redistribute it and/or
62
modify it under the same terms as Perl itself.