use strict;
use Mob;
use Speaker;
use Speach::Persuasion qw(demagoguery bribery);


my $me  = new Speaker("Antony");
my $you = new Mob;

$me->setListeners($you)
$me->invoke("Friends, Romans, Countrymen!");

$you->ears()->lend($me);

$me->statePurpose('bury Caesar' => 1,
                  'praise him'  => 0
                  );