class Point {
  has $.x;
  has $.y;
  method str {
    return $.x ~ "x" ~ $.y;
  }
}

my $point = Point.new(x => 2, y => 3);
say $point.str;

##</code><code>##

{
  package Point;
  sub new {
    my $name = shift;
    my %attr = @_;
    return bless { %attr }, $name;
  }
  sub x {
    my $self = shift;
    return $self->{x};
  }
  sub y {
    my $self = shift;
    return $self->{y};
  }
  sub str {
    my $self = shift;
    return $self->x . "x" . $self->y;
  }
}

my $point = Point->new(x => 2, y => 3);
print $point->str, "\n";