Graphics::Color::Equal is a Moose role for equality.

  with 'Graphics::Color::Equal';

  sub equal_to {
      my ($self, $other) = @_;

      # compare and return!
  }

Implement this.

Provided you implement equal_to, this will be implemented for you!

Cory Watson <gphat@cpan.org>

Copyright 2008 - 2009 by Cory G Watson

You can redistribute and/or modify this code under the same terms as Perl itself.