Re: Caffeine and its delivery to monks in need

[vladb]

Hehe, this would be my 'losy' attempt at serving coffee!

for (grep {$_->is_early_tired() && $_->requires_coffee()} @cb_monks) {
  do {
  $_->consume(Hot::Coffee->new($_->get_coffee_prefs()));
  while ($_->more_coffee_wont_hurt()); 
}

Note that I'm not a big expert on customer care ;).

_____________________

$"=q;grep;;$,=q"grep";for(`find . -name ".saves*~"`){s;$/;;;/(.*-(\d+)
+-.*)$/;$_=["ps -e -o pid | "," $2 | "," -v "," "];`@$_`?{print"+ $1"}
+:{print"- $1"}&&`rm $1`;print"\n";}