Moose Moose - It's the new camel #14

Use in a class

package Number;

use Moose;

with 'Comparable';

has number => (is => 'rw', isa => 'Int', init_arg => 'number');

sub compare {
    my ($self, $value) = @_;
    return $self->number() <=> $value;
}

package main;

my $n = Number->new(number => 10);

print $n->number . ' is greater than 2' . "\n" if $n->greater_than(2);
print $n->number . ' is not less than 5' . "\n" if !$n->less_than(5);
print $n->number . ' is equal to 10' . "\n" if $n->equal_to(10);
continued...
Copyright © 2007 Robert Boone