File Coverage

blib/lib/Graphics/ColorNames/EmergyC.pm
Criterion Covered Total %
statement 6 7 85.7
branch n/a
condition n/a
subroutine 2 3 66.6
pod 0 1 0.0
total 8 11 72.7


line stmt bran cond sub pod time code
1             package Graphics::ColorNames::EmergyC;
2              
3             =head1 NAME
4              
5             Graphics::ColorNames::EmergyC - Eco-friendly web-design color-palette.
6              
7             =head1 SYNOPSIS
8              
9             require Graphics::ColorNames::EmergyC;
10              
11             $NameTable = Graphics::ColorNames::EmergyC->NamesRgbTable();
12             $RgbBlack = $NameTable->{black};
13              
14             =head1 DESCRIPTION
15              
16             The Emergy-C color palette is based on the
17             EnergyStar wattage ratings for different colors. Supposedly, a
18             display mainly using colors of this palette uses on average only
19             about 3 or 4 watts more than a completely black screen. White is
20             included as an accent color, only for a small proportion
21             of the screen.
22              
23             Since it is a minimal palette, you may want to use it in conjunction
24             with other palettes.
25              
26             =begin readme
27              
28             =head1 REVISION HISTORY
29              
30             Changes since the last release
31              
32             =for readme include file=Changes start=^1.01 stop=^1.00 type=text
33              
34             More details can be found in the F file.
35              
36             =end readme
37              
38             =head1 SEE ALSO
39              
40             L
41              
42             This palette comes from
43             L.
44              
45             EnergyStar wattage ratings for colors,
46             L.
47              
48             =head1 AUTHOR
49              
50             Implemented as a plugin for L by
51             Robert Rothenberg .
52              
53             This palette was designed by Jon Doucette, .
54              
55             =head1 LICENSE
56              
57             Copyright (c) 2007 Robert Rothenberg. All rights reserved.
58             This program is free software; you can redistribute it and/or
59             modify it under the same terms as Perl itself.
60              
61             =cut
62              
63              
64 1     1   804 use strict;
  1         2  
  1         78  
65              
66             our $VERSION = '1.01';
67              
68             sub NamesRgbTable() {
69 1     1   943 use integer;
  1         9  
  1         4  
70             return {
71 0     0 0   "white" => 0xffffff,
72             "black" => 0x000000,
73             "rustyred" => 0x822007,
74             "bluegrey" => 0xb2bbc0,
75             "forestgreen" => 0x19472a,
76             "cobalt" => 0x3d414c,
77             };
78             }
79              
80             1;
81              
82             __END__