package Night;

sub new {
  my $i = bless { this => 'Night' }, shift;

  require Coffee;

  my $coffee = Coffee->pot( 'Espresso' );

  if ( $coffee->cup eq 'clean' ) {
    $i->rejoice && $i->thank( $coffee->god );
  } else {
    $i->clean( $coffee->cup );
  }


  while ( $i->code ) {

    $i->pour( $coffee => $coffee->cup );
    $i->drink( $coffee ) && $i->stay( 'awake' );

  }

  $i->sleep;
}

return 1; # tired programmer

--
Casey