#!perl -w
package Nested::Quite::Deep;
use strict;
use AutoLoader 'AUTOLOAD';
use Exporter;
use vars qw (@ISA @EXPORT_OK);
@ISA = qw (Exporter);
@EXPORT_OK = qw (spam spanish_inquisition panic penguin);
sub spam {
"Bloody Vikings";
}
1;
__END__
sub spanish_inquisition {
my @weapons = ("Fear", "Surprise", "Ruthless efficiency",
"Fanatical loyalty to the Pope");
return @weapons[0..rand(@weapons)];
}
sub panic {
"Burma";
}
sub penguin {
"It's 8pm and time for the penguin on top of your TV to explode";
# This will amuse the BSD fans
}