package PerlMethods;
use strict;

sub new {
  my ($pckg, $x, $y) = @_;
  
  my $self = { x => $x, y => $y };
  
  return bless $self, $pckg;
}


sub x {
  my ($self) = @_;
  
  return $self->{x};
}


sub y {
  my ($self) = @_;
  
  return $self->{y};
}

1;