Oh, and don't forget the following lines that applied to me when I was working at a coffee place:

if ($coffee_pot->low()) {
  $self->drink($coffee_pot->bottom);
  $coffee_pot->brew_fresh();
}

if ($shift eq "slow") {
  $self->read("Programming Perl");
  $self->swear("I'm getting out of this hole someday.");
}
[download]

:-)