File Coverage

blib/lib/Image/TextMode/Palette/ANSI.pm
Criterion Covered Total %
statement 3 3 100.0
branch n/a
condition n/a
subroutine 1 1 100.0
pod n/a
total 4 4 100.0


line stmt bran cond sub pod time code
1             package Image::TextMode::Palette::ANSI;
2              
3 10     10   40 use Moo;
  10         15  
  10         54  
4              
5             extends 'Image::TextMode::Palette';
6              
7             has '+colors' => (
8             default => sub {
9             [ [ 0x00, 0x00, 0x00 ], # black
10             [ 0xaa, 0x00, 0x00 ], # red
11             [ 0x00, 0xaa, 0x00 ], # green
12             [ 0xaa, 0x55, 0x00 ], # yellow
13             [ 0x00, 0x00, 0xaa ], # blue
14             [ 0xaa, 0x00, 0xaa ], # magenta
15             [ 0x00, 0xaa, 0xaa ], # cyan
16             [ 0xaa, 0xaa, 0xaa ], # white
17             # bright
18             [ 0x55, 0x55, 0x55 ], # black
19             [ 0xff, 0x55, 0x55 ], # red
20             [ 0x55, 0xff, 0x55 ], # green
21             [ 0xff, 0xff, 0x55 ], # yellow
22             [ 0x55, 0x55, 0xff ], # blue
23             [ 0xff, 0x55, 0xff ], # magenta
24             [ 0x55, 0xff, 0xff ], # cyan
25             [ 0xff, 0xff, 0xff ], # white
26             ];
27             }
28             );
29              
30             =head1 NAME
31              
32             Image::TextMode::Palette::ANSI - 16-color ANSI palette
33              
34             =head1 DESCRIPTION
35              
36             This is the default ANSI palette.
37              
38             =head1 AUTHOR
39              
40             Brian Cassidy Ebricas@cpan.orgE
41              
42             =head1 COPYRIGHT AND LICENSE
43              
44             Copyright 2008-2015 by Brian Cassidy
45              
46             This library is free software; you can redistribute it and/or modify
47             it under the same terms as Perl itself.
48              
49             =cut
50              
51             1;