Trying to kickstart my brain this morning. This won't help, but at least it will kill some time :-)

use constant {
  BLEND    => "very cheap",
  STRENGTH => "very strong"
};

my $coffee_pot = Coffee::Pot->brew(BLEND, STRENGTH);
stare( @wall ) until $coffee->is_ready;
CUP: 
while(groggy()) {
  get($cup) and $coffee_pot->pour($cup);
  $cup->add("sugar", "milk");
  stir($cup);
  push(@mouth, $cup);
  drink($cup);
  last CUP if (awake() || late_for_work());
}

[download]

I just realized that I was using the same sig for nearly three years.

Replies are listed 'Best First'.
Re: My Morning Ritual
by Ctrl-z (Friar) on Mar 19, 2003 at 21:20 UTC
    i know the feeling 
    sleep 1200 while( (localtime)[2] < 8 );

use Curses;

require nicotine;
`make coffee`;
bootstrap $self and wait;

foreach( @three_shs )
{
    ( defined )     ? eval : next ;    
    callInSick         if $@;    
}

unless ( system 'mail' )
{
    kill( time )    or warn "i really should be going...";
}

my $feeling = ( int rand(1000) % 2 ) ? "lucky" : "urgh!" ;  
exit;

    [download]



    time was, I could move my arms like a bird and...
[reply]
[d/l]
Re: My Morning Ritual
by dws (Chancellor) on Mar 19, 2003 at 23:54 UTC
    A patch to approximate my old morning routine: 
      drink($cup);
+ study $paper;
  last CUP if (awake() || late_for_work());

    [download]
[reply]
[d/l]
Re: My Morning Ritual
by michaeld (Monk) on Mar 20, 2003 at 14:18 UTC

    Great stuff and highly recognisable.

    Running it tells me I probably forgot to load the Coffee::Pot... I wonder what with? :-)

    Cheers,
    Michael

[reply]

Back to Perl Poetry