#!/usr/bin/perl -w

use lib "./modules";
use joueur;

print $joueur::info;

my $p1 = joueur->new("Joueur1");
my $p2 = joueur->new("Joueur2");

$p1->avance(3);
$p1->avance(8);
$p1->tourne_gauche(10);
$p1->recule(6);
$p1->tourne_droite(5);

$p2->avance(8);
$p2->avance(4);
$p2->tourne_gauche(1);
$p2->recule(5);
$p2->tourne_droite(9);

$p1->position;
$p2->position;

$p2->mourir;