/usr/share/perl5/Color/Palette/Schema.pm is in libcolor-palette-perl 0.100003-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 | package Color::Palette::Schema;
{
$Color::Palette::Schema::VERSION = '0.100003';
}
use Moose;
# ABSTRACT: requirements for a palette
use Color::Palette;
use Color::Palette::Types qw(ColorName);
use MooseX::Types::Moose qw(ArrayRef);
has required_colors => (
is => 'ro',
isa => ArrayRef[ ColorName ],
required => 1,
);
sub check {
my ($self, $palette) = @_;
# ->color will throw an exception on unknown colors, doing our job for us.
# -- rjbs, 2009-05-19
$palette->color($_) for @{ $self->required_colors };
}
1;
__END__
=pod
=encoding UTF-8
=head1 NAME
Color::Palette::Schema - requirements for a palette
=head1 VERSION
version 0.100003
=head1 DESCRIPTION
Most of this is documented in L<Color::Palette>. Below is just a bit more
documentation.
=head1 ATTRIBUTES
=head2 required_colors
This is an arrayref of color names that must be present in any palette checked
against this schema.
=head1 METHODS
=head2 check
$schema->check($palette);
This method will throw an exception if the given palette doesn't meet the
requirements of the schema.
=head1 AUTHOR
Ricardo SIGNES <rjbs@cpan.org>
=head1 COPYRIGHT AND LICENSE
This software is copyright (c) 2013 by Ricardo SIGNES.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
=cut
|