Graphics::Color::Equal (3pm)

version 0.29

  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.

equal_to

Implement this.

not_equal_to

Provided you implement \*(C`equal_to\*(C', this will be implemented for you!

Cory G Watson <[email protected]>

This software is copyright (c) 2011 by Cold Hard Code, \s-1LLC\s0.

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