File Coverage

blib/lib/Image/TextMode/Palette/VGA.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

package Image::TextMode::Palette::VGA;

use Moo;

extends 'Image::TextMode::Palette';

has '+colors' => (
    default => sub {
        [   [ 0x00, 0x00, 0x00 ],
            [ 0x00, 0x00, 0xaa ],
            [ 0x00, 0xaa, 0x00 ],
            [ 0x00, 0xaa, 0xaa ],
            [ 0xaa, 0x00, 0x00 ],
            [ 0xaa, 0x00, 0xaa ],
            [ 0xaa, 0x55, 0x00 ],
            [ 0xaa, 0xaa, 0xaa ],
            [ 0x55, 0x55, 0x55 ],
            [ 0x55, 0x55, 0xff ],
            [ 0x55, 0xff, 0x55 ],
            [ 0x55, 0xff, 0xff ],
            [ 0xff, 0x55, 0x55 ],
            [ 0xff, 0x55, 0xff ],
            [ 0xff, 0xff, 0x55 ],
            [ 0xff, 0xff, 0xff ],
        ];
    }
);

=head1 NAME

Image::TextMode::Palette::VGA - 16-color VGA palette

=head1 DESCRIPTION

This is the default VGA palette.

=head1 AUTHOR

Brian Cassidy [e-mail]

=head1 COPYRIGHT AND LICENSE

Copyright 2008-2014 by Brian Cassidy

This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

=cut

1;