Graphics::Color::Equal - Moose equality role
package Graphics::Color::Foo;
use Moose;
with 'Graphics::Color::Equal';
sub equal_to {
my ($self, $other) = @_;
# compare and return!
}
Graphics::Color::Equal is a Moose role for equality.
Provided you implement "equal_to", this will
be implemented for you!
Cory G Watson <gphat@cpan.org>
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.