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;

# ABSTRACT: VisiBone Anglo-Centric Color Codes


require 5.006;

use strict;
use warnings;

our $VERSION = '1.03';

my %RgbColors = ();

sub NamesRgbTable() {
    use integer;
    unless ( keys %RgbColors ) {
        while ( my $line =  ) {
            chomp($line);
            if ($line) {
                my $rgb = hex substr( $line, 0, 6 );
                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;

=pod

=encoding UTF-8

=head1 NAME

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

=head1 VERSION

version 1.03

=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 SOURCE

The development version is on github at L
and may be cloned from L

=head1 BUGS

Please report any bugs or feature requests on the bugtracker website
L

When submitting a bug or request, please include a test-file or a
patch to an existing test-file that illustrates the bug or desired
feature.

=head1 AUTHOR

Robert Rothenberg

=head1 CONTRIBUTOR

=for stopwords Spoon Reloaded

Spoon Reloaded

=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 COPYRIGHT AND LICENSE

This software is Copyright (c) 2004,2022 by Robert Rothenberg.

This is free software, licensed under:

  The Artistic License 2.0 (GPL Compatible)

=cut

__DATA__