#!/usr/bin/perl
package Point;
use Moose;

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

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

package main;
use strict;
use warnings;

print Point->new->dump;
print Point->new({})->dump;
print Point->new({})->x;

__END__
Attribute (x) is required at /PATH/TO/Moose/Object.pm line 24
    Moose::Object::new('Point') called at foo.pl line 17