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
-
Portland, OR, United States
-
Member for 6 years, 6 months
-
2 profile views
-
Last seen May 27 '20 at 0:57
Communities (42)
Top network posts
Keeping a low profile.
This user hasn't posted yet.