File Coverage

blib/lib/Graphics/ColorNames/VACCC.pm

Criterion	Covered	Total	%
statement	25	25	100.0
branch	4	4	100.0
condition			n/a
subroutine	4	4	100.0
pod	0	1	0.0
total	33	34	97.0

package Graphics::ColorNames::VACCC;

=head1 NAME

Graphics::ColorNames::VACCC - VisiBone Anglo-Centric Color Codes for Graphics::ColorNames

=head1 SYNOPSIS

  require Graphics::ColorNames::VACCC;

  $NameTable = Graphics::ColorNames::VACCC->NamesRgbTable();
  $RgbColor  = $NameTable->{paledullred};

=head1 DESCRIPTION

This module defines color names and their associated RGB values for
the VisiBone Anglo-Centric Color Code.  This is intended for use with
the L package.

=head1 SEE ALSO

A description of this color scheme can be found at
L.

=head1 AUTHOR

Robert Rothenberg

=head2 Acknowledgements

A while back I had received a request from somebody to implement this
as part of the L distribution.  The request
included source code for the module.  I had suggested to this person
that they upload a separate module to CPAN, but heard no reply.

Afterwards I had lost the original E-mail.

This version of the module was implemented separately.

=head1 LICENSE

Copyright (c) 2004 Robert Rothenberg. All rights reserved.
This program is free software; you can redistribute it and/or
modify it under the same terms as Perl itself.

=cut

require 5.006;

use strict;
use warnings;

our $VERSION = '1.02';

my %RgbColors   = ( );

sub NamesRgbTable() {
  use integer;
  unless (keys %RgbColors) {
    while (my $line = ) {
      chomp($line);
      if ($line) {
	my $rgb   = eval "0x" . substr($line, 0, 6);
#	die, unless ($rgb =~ /^\d+$/);
	my $short = lc(substr($line, 8, 3)); $short =~ s/\s+$//;
	my $long  = lc(substr($line, 11));   $long  =~ s/^\s+//;
	$RgbColors{$short} = $rgb;
	$RgbColors{$long}  = $rgb;
	$long =~ s/\s+//g;
	$RgbColors{$long}  = $rgb;
	$long =~ s/\-//g;
	$RgbColors{$long}  = $rgb;
      }
    }
  }
  return \%RgbColors;
}

1;

__DATA__