Tiny moose example

Player.pm

package Player;
use Moose;

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

sub position {
  my ($self, $x, $y) = @_;
  if ( defined($x) and defined($y) ) {
    $self->x($x); $self->y($y);
  }
  return ($self->x, $self->y);
}

1;

test.pl

#!/usr/bin/perl
use strict;
use warnings;
use v5.10;
use feature ':5.10';

use lib qw/./;

use Player;

my $p = Player->new(x=>1, y=>5);

say $p->x;
$p->x(23);
say $p->x;
$p->position(5,9);
say for $p->position;