101 reputation
2
bio website
location saint louis, mo
age
visits member for 1 year, 11 months
seen 2 days ago

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

25 Votes Cast

all time   by type   month  
25 up 8 question 1
0 down 17 answer