File Coverage

blib/lib/Graphics/ColorNames/Windows.pm
Criterion Covered Total %
statement 12 12 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod 0 1 0.0
total 17 18 94.4


line stmt bran cond sub pod time code
1             package Graphics::ColorNames::Windows;
2              
3 1     1   10720 use v5.6;
  1         4  
4              
5             # ABSTRACT: Windows color names and equivalent RGB values
6              
7             # RECOMMEND PREREQ: Graphics::ColorNames
8              
9              
10 1     1   5 use strict;
  1         2  
  1         21  
11 1     1   5 use warnings;
  1         2  
  1         47  
12              
13             our $VERSION = 'v3.3.0';
14              
15             sub NamesRgbTable() {
16 1     1   507 use integer;
  1         14  
  1         6  
17             return {
18 1     1 0 56 'black' => 0x000000,
19             'blue' => 0x0000ff,
20             'cyan' => 0x00ffff,
21             'green' => 0x00ff00,
22             'magenta' => 0xff00ff,
23             'red' => 0xff0000,
24             'yellow' => 0xffff00,
25             'white' => 0xffffff,
26             'darkblue' => 0x000080,
27             'darkcyan' => 0x008080,
28             'darkgreen' => 0x008000,
29             'darkmagenta' => 0x800080,
30             'darkred' => 0x800000,
31             'darkyellow' => 0x808000,
32             'darkgray' => 0x808080,
33             'lightgray' => 0xc0c0c0,
34             };
35             }
36              
37             1;
38              
39             __END__