#!/usr/bin/perl

no strict; $rules;

my %hash = (smells => 'good'); for $i (@drag) {
open EYES, "$i"."must" or warn "groovy man";
print "Once again, my hash makes me one with the Llama;"
}
close EYES and sleep;

[download]

Replies are listed 'Best First'.
Re: mmmmmmm
by frankus (Priest) on Jul 25, 2002 at 16:46 UTC
    I guess it takes all sorts to make a world,
    Don't you need some exception handling for $munchies and
    a module to recover gracefully from short-term memory leaks?

    Oh well, if it does make you one with the Llama, I guess we can expect to see: 

    Purchase::All_Night_Garage::Rizla
Purchase::All_Night_Garage::Marlboro_Lights

    [download]
    Appearing at a CPAN Mirror soon. ;-P

    --

    Brother Frankus.

    ¤

[reply]
[d/l]
      Purchase::All_Night_Garage::Marlboro_Lights

      Surely that should be: 

      Purchase::All_Night_Garage::Camel_Lights
      IMHO     ;-)

      barrd

[reply]
      I understand it's normally: 
      Purchase::All_Night_Garage::Rizla::Kingsize

      [download]

      and also ... 

      Purchase::All_Night_Garage::Pringles
Purchase::All_Night_Garage::Drink(rand)
Purchase::All_Night_Garage::Flapjack(!caramel)

      [download]
      I believe there is still problems with the code for the module which sets the consumption threshold. Keeps throwing whitey errors.

      --
      ¤ Steve Marvell

[reply]
[d/l]
[select]
        Well if this is going to turn into a wish list... 
        sub Purchase::All_Night_Garage::Lighter::Clipper {
   my $self = shift;
   
   # Dude, purchase is like, er theft, but you pay for it.
   use Tax::Lighter::Clipper;
   my $clipper = Tax::Lighter::Clipper->new();

   # Makes sense to have another module for trying to get
   # loose change out of front pocket of tight jeans.
   my $cost = Stoner::fumbling::pocket->new();

   $self->draw($cost);
   push @{$self->{assets}}=@_ unless $self->random_forgetfulness;

   return 'home';
}


# Mutator method:
sub Purchase::All_Night_Garage::Rizla::Kingsize($){
   my $range = { blue=>'master', red=>'novice' };
   return 0 unless exists($range->{$_[1]});

   $_[0]->{rizla}->{colour} = $_[1];
}

        [download]

        --

        Brother Frankus.

        ¤

[reply]
[d/l]

Back to Perl Poetry