#!/usr/bin/perl

foreach $man (@men) {
    kill (eval method), $man->love;
    $man->tell( method );
}

method = sub {
    return '($man->look =~ /bitter/ && 14) ||
    ($man->word =~ /flattering/ && 4) ||
    ($man->coward ? (use Kiss && 5) :
    (use Sword && 9)';
}
[download]