Møøse

What does Moose look like:

package Point;
use Moose;

has 'x' => (is => 'rw', isa => 'Int');
has 'y' => (is => 'rw', isa => 'Int');

sub clear {
    my $self = shift;
    $self->x(0);
    $self->y(0);    
}

Suspiciously like Perl 6 ;-)

my $point = Point->new(x => 5, y => 2);
Copyright © 2006 Stevan Little