in reply to mmmmmmm

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.

¤

Replies are listed 'Best First'.
Re: Re: mmmmmmm
by barrd (Canon) on Jul 29, 2002 at 15:06 UTC
    Purchase::All_Night_Garage::Marlboro_Lights

    Surely that should be: 

    Purchase::All_Night_Garage::Camel_Lights
    IMHO     ;-)

    barrd

[reply]
Re: Re: mmmmmmm
by marvell (Pilgrim) on Jul 30, 2002 at 22:22 UTC
    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]

In Section Perl Poetry