Møøse

Classes are great, what about Roles?

package Equality;
use Moose::Role;

requires 'equal_to';

sub not_equal_to { 
    my ($self, $other) = @_;
    not $self->equal_to($other);
}
Copyright © 2006 Stevan Little