101 reputation
2
bio website
location saint louis, mo
age
visits member for 1 year, 6 months
seen Dec 13 at 23:48

no one looks at profiles... but whatever.

#!/usr/bin/perl 

package me; 
# brave new world - huxley
# Was and will make me ill. 
# i take a gramme and only am. 

sub exist {
   my $class = shift; 
   bless {'am'=>'kim'}, $class;     
}

sub think {
   my ($self,$thought) = @_;
   $self->{'am'} = 'ill'; 
}

sub take {
   my ($self,$something) = @_;
   $self->{'am'} = undef 
      if ($something =~ /gram(me)?(s)?/i);
}

sub am {
  my $self = shift; 
   print $self->{'am'} 
         if defined $self->{'am'}; 
   print "\n";
} 

my $i = me->exist();  
   $i->think('was');  
   $i->am(); 
   $i->think('will');  
   $i->am(); 
   $i->take('gramme');
   $i->am(); # now nothing

This user has not answered any questions
This user has not asked any questions
This user has not participated in any tags

1 Vote Cast

all time   by type  
1 up 0 question
0 down 1 answer