/usr/share/perl5/Graphics/Color.pm is in libgraphics-color-perl 0.31-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 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 | package Graphics::Color;
$Graphics::Color::VERSION = '0.31';
use Moose;
use Moose::Util::TypeConstraints;
with qw(MooseX::Clone Graphics::Color::Equal MooseX::Storage::Deferred);
# ABSTRACT: Device and library agnostic color spaces.
sub derive {
my ($self, $args) = @_;
return unless ref($args) eq 'HASH';
my $new = $self->clone;
foreach my $key (keys %{ $args }) {
$new->$key($args->{$key}) if($new->can($key));
}
return $new;
}
sub equal_to {
die("Override me!");
}
__PACKAGE__->meta->make_immutable;
no Moose;
1;
__END__
=pod
=head1 NAME
Graphics::Color - Device and library agnostic color spaces.
=head1 VERSION
version 0.31
=head1 SYNOPSIS
my $color = Graphics::Color::RGB->new(
red => .5, green => .5, blue => .5, alpha => .5
);
say $color->as_string;
=head1 DESCRIPTION
Graphics color is a device and library agnostic system for creating and
manipulating colors in various color spaces.
=head1 DISCLAIMER
I'm not an art student or a wizard of arcane color knowledge. I'm a normal
programmer with a penchant for things graphical. Hence this module is likely
incomplete in some places. Patches are encouraged. I've intentions of adding
more color spaces as well as conversion routines (where applicable).
=head1 COLOR TYPES
The following color types are supported.
L<CMYK|Graphics::Color::CMYK>
L<HSL|Graphics::Color::HSL>
L<HSV|Graphics::Color::HSV>
L<RGB|Graphics::Color::RGB>
L<YIQ|Graphics::Color::YIQ>
L<YUV|Graphics::Color::YUV>
=head1 METHODS
=head2 derive
Clone this color but allow one of more of it's attributes to change by passing
in a hashref of options:
my $new = $color->derive({ attr => $newvalue });
The returned color will be identical to the cloned one, save the attributes
specified.
=head2 equal_to
Compares this color to the provided one. Returns 1 if true, else 0;
=head2 not_equal_to
The opposite of equal_to.
=head1 AUTHOR
Cory G Watson <gphat@cpan.org>
=head1 COPYRIGHT AND LICENSE
This software is copyright (c) 2014 by Cold Hard Code, LLC.
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
|