in reply to
Caffeine and its delivery to monks in need
A semi-OO way :)
Called as: ./Caffeine.pl kenya_AA high am 10
Here is the code:
use IV::Caffeine ;
my $favorite_poison = shift ;
my $flowrate = shift ;
my $time_of_day = shift ;
my $groggy = shift ;
if ($time_of_day ne "pm"){$time_of_day = "am" ;}
while ($time_of_day eq "am" || $time_of_day = "pm")
{
my $leftarm = "InnerLeftElbow" ;
my $rightarm = "InnerRightElbow" ;
$injector = new IV::Caffeine(Poison => $favorite_poison, NeedleSize
+ => $flowrate)
$injector->pierce_skin($leftarm) ;
$injector->pierce_skin($rightarm) ;
$injector->begin_flow ;
if ($groggy >= 5) {$injector->increase_flow($leftarm, $rightarm) ;}
}
"Nothing is sure but death and taxes" I say combine the two and its death to all taxes!
