#! /opt/perl/bin/perl

package Mob;

use Moose;
use Data::Dumper;

has 'position' => (is => 'rw', builder => 'build_pos');

has 'velocity' => (is => 'rw', builder => 'build_vel');

sub build_pos {
	return {x => 0, y => 0};
	}

sub build_vel {
	return {x => 0, y => 0};
	}

sub move {
	
	print Dumper("Move", @_);

	}
	
sub draw {
	
	print Dumper("Draw", @_);
	}
	
1;