gloomy.penguin
.
#!/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
0
answers
1
question
~4k
people reached
-
Portland, OR, United States
-
Member for 6 years
-
46 profile views
-
Last seen Oct 28 '20 at 10:34
Communities (42)
Top network posts
Badges (9)
Gold
—
Silver
4
Rarest
-
Feb 9 '18
-
Mar 1 '18
Bronze
5
Rarest
-
Feb 17 '15
-
Feb 14 '15
-
Feb 23 '16