CPAN weirdness

I was reading CPAN for the articles and found Acme::Playmate. Someone felt the need to create a programmatic interface to a database of Playboy statistics at playboy.com. Example code:

use Acme::Playmate;
my $playmate = new Acme::Playmate("2003", "04");
print "Details for playmate " . $playmate->{ "Name" } . "n";
print "Birthdate" . $playmate->{ "BirthDate" } . "n";
print "Birthplace" . $playmate->{ "BirthPlace" } . "n";
print "Bust" . $playmate->{ "Bust" } . "n";
print "Waist" . $playmate->{ "Waist" } . "n";
print "Hips" . $playmate->{ "Hips" } . "n";
print "Height" . $playmate->{ "Height" } . "n";
print "Weight" . $playmate->{ "Weight" } . "n";

You would do well to look at all the Acme:: Perl modules.

One thought on “CPAN weirdness

  1. Those guys have a good idea, but are wasting their time on the stuff no one reads, or makes fun of anyway. “Ooooh! I love ponies!!” Maybe they can make something to categorize pics by boob size, or pony love or something like that.

    Like

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out /  Change )

Google+ photo

You are commenting using your Google+ account. Log Out /  Change )

Twitter picture

You are commenting using your Twitter account. Log Out /  Change )

Facebook photo

You are commenting using your Facebook account. Log Out /  Change )

Connecting to %s