#!/usr/bin/perl

use strict;
use warnings;
use 5.014;

use Object::Pad;

class Point {
   has $x;
   has $y;

   method CREATE {
      ( $x, $y ) = @_;
   }

   method whereami {
      say "I'm at ($x, $y)";
   }
}


my $p = Point->new( 10, 20 );
$p->whereami;
