my $chk = new Data::Validate::OO(
   -failure => sub{ my $rule = shift; print "Error in rule '$rule': ".join(', ',@_)."\n"; },
);
$chk->selftest(qw(This Is a Test of the emergency broadcast system!));