101 reputation
2
bio website
location saint louis, mo
age
visits member for 2 years, 4 months
seen Oct 3 '14 at 14:53

.

#!/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
Stack Overflow 3,208 rep 31450
Academia 162 rep 4
Code Review 160 rep 7
Pets 141 rep 14
English Language & Usage 133 rep 5

1 Vote Cast

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