#!/usr/bin/perl --
use strict;
use warnings;
Main( @ARGV );
exit( 0 );
{
    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);
    }
}
sub Main {
    print Point->new->dump;
    print Point->new({})->dump;
    print Point->new({})->x;
}
__END__
$VAR1 = bless( {}, 'Point' );
$VAR1 = bless( {}, 'Point' );
Can't locate object method "x" via package "Point" at - line 20.