101 reputation
2
bio website
location saint louis, mo
age
visits member for 2 years, 7 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,253 rep 31451
The Workplace 435 rep 1210
Academia 162 rep 4
Code Review 160 rep 7
Pets 141 rep 14

1 Vote Cast

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