I saw where exeunt had created a journal entry where he create "Perl Songs". I have a few similar things like that myself:
$this->give('liberty') || $this->give('death');
----
! $this->tread('me');
----
@ways = $this->love($thee);
foreach my $way(@ways){
$this->count($way);
}
----
$this->cry(HAVOC);
for my $dog (@war){
$this->let($dog->loose());
}
----
$chucks = 0;
if ($woodchuck->can_chuck()){
while (<WOOD>){
$woodchuck->chuck($_);
$chucks++;
}
}
print "$chucks\n";
----
# Another Perl edition of a song:
# The End, by The Beatles
END {
$you->take($love) eq $you->made($love);
}
