Acme::PM::Chicago - Functions useful for the Chicago.pm group

Acme-PM-Chicago documentation Contained in the Acme-PM-Chicago distribution.

Index

Code Index:

NAME

Top

Acme::PM::Chicago - Functions useful for the Chicago.pm group

VERSION

Top

Version 0.01

SYNOPSIS

Top

We here in Chicago.PM have the monthly problem of how to give away books. Names from a hat? Bizarre statistical extraction from Lembark? Who can tell? We decided once and for all to have ONE WAY to do it.

FUNCTIONS

Top

lembark()

Returns a random saying of Steven Lembark.

lester()

Get a lesterism

random_name

Gets a list of names, and then passes back one at random.

Acme-PM-Chicago documentation Contained in the Acme-PM-Chicago distribution. 
package Acme::PM::Chicago;


our $VERSION = "0.01";


use strict;
use warnings;

use Exporter;
our @ISA = qw( Exporter );
our @EXPORT = qw( lembark lester );


sub lembark {
    my @sayings = (
	"Have you seen Acme::Bleach?",
	"Use FindBin::lib",
	"Do you want me to talk about Quantum::Superpositions?",
    );

    return $sayings[rand @sayings];
}


sub lester {
    my @sayings = (
	"Have you tested lately?",
	"vim is the one true editor",
	"h2xs sucks",
	"If I were king...",
	"At Follett, the way we do it...",
	"See Hack #21 in Spidering Hacks",
    );
    return $sayings[rand @sayings];
}


sub random_name {
    my @names = @_;

    return $names[rand @names];
}

1;