use Human::DigestiveSystem;
use strict;

my $me = new DigestiveSystem;
$me->eat('glass');
$me->isHurt(0);
[download]