package Human::Movable;
use Pony::Object qw/Human::Base/;
  
  protected 'x' => 0;
  protected 'y' => 0;
  
  sub moveLeft : Public
    {
      --shift->x;
    }
  
  sub moveRight : Public
    {
      ++shift->x;
    }
  
  sub moveTop : Public
    {
      ++shift->y;
    }
  
  sub moveDown : Public
    {
      --shift->y;
    }
  
  sub getResultWay : Public
    {
      my $this = shift;
      return ( $this->x**2 + $this->y**2 )**0.5;
    }
  
1;