Acme::Laugh is a Perl module that can add joy to your scripts.
use Acme::Laugh qw( laugh );
print laugh(5); # print a short laugh
print laugh(50); # print a long laugh
Laughing is something that lets humans distinguish themselves from other forms of life. Now computers are nearer to us.
Have you ever needed to generate a laugh? I had: in IRC, to laugh at other people (for fun!). So, here we are!
This module lets you export the laugh function:
my $l = laugh( $length );
my $l = laugh(); # Random length
This function accepts an optional $length parameter, which lets you trim the length of the generated laugh. This length has little to do with the actual string length (which you can trim later, if you want), but higher values generate longer laughs in average. Ok, peruse the code to see it!