Geometry::Primitive::Equal - Equality Role
Geometry::Primitive::Equal is a Moose role for equality.
with 'Geometry::Primitive::Equal';
sub equal_to {
my ($self, $other) = @_;
# compare and return!
}
equal_to
Implement this.
not_equal_to
Provided you implement "equal_to", this will be implemented for you!
Cory Watson <gphat AT cpan DOT org>
You can redistribute and/or modify this code under the same terms as Perl itself.