view release on metacpan or  search on metacpan

lib/Acme/NameGen.pm  view on Meta::CPAN

package Acme::NameGen;

use 5.006;
use strict;
use warnings;

our $VERSION = '0.010100';

use vars qw($VERSION @EXPORT_OK);
require Exporter;
*import    = \&Exporter::import;
@EXPORT_OK = qw(gen gen_lc gen_uc);

my @adjectives = (
    'admiring',      'adoring',     'affectionate',  'agitated',
    'amazing',       'angry',       'awesome',       'blissful',
    'boring',        'brave',       'clever',        'cocky',
    'compassionate', 'competent',   'condescending', 'confident',
    'cranky',        'dazzling',    'determined',    'distracted',
    'dreamy',        'eager',       'ecstatic',      'elastic',
    'elated',        'elegant',     'eloquent',      'epic',
    'fervent',       'festive',     'flamboyant',    'focused',
    'friendly',      'frosty',      'gallant',       'gifted',
    'goofy',         'gracious',    'happy',         'hardcore',
    'heuristic',     'hopeful',     'hungry',        'infallible',
    'inspiring',     'jolly',       'jovial',        'keen',
    'kind',          'laughing',    'loving',        'lucid',
    'mystifying',    'modest',      'musing',        'naughty',
    'nervous',       'nifty',       'nostalgic',     'objective',
    'optimistic',    'peaceful',    'pedantic',      'pensive',
    'practical',     'priceless',   'quirky',        'quizzical',
    'relaxed',       'reverent',    'romantic',      'sad',
    'serene',        'sharp',       'silly',         'sleepy',
    'stoic',         'stupefied',   'suspicious',    'tender',
    'thirsty',       'trusting',    'unruffled',     'upbeat',
    'vibrant',       'vigilant',    'vigorous',      'wizardly',
    'wonderful',     'xenodochial', 'youthful',      'zealous',
    'zen'
);

sub gen {
    my ( $adjective_element, $subjects, $subjects_element ) = @_;
    $adjectives[ $adjective_element || rand scalar @adjectives ] . '_'
      . $subjects->[ $subjects_element || rand scalar @$subjects ];
}

sub gen_lc { lc gen(@_) }

sub gen_uc { uc gen(@_) }

1;

__END__

=pod


=head1 NAME

Acme::NameGen - A simple and dumb name generator based by cpan authors.

=head1 VERSION

Version 0.010100

=head1 SYNOPSIS

    use Acme::NameGen qw/gen gen_lc gen_uc/;

    # generates a random name like affectionate_MZIESCHA
    my $random_author = gen;

    # Same as gen but upper case
    my $random_author = gen_uc;
    
    # Same as gen but lower case
    my $random_author = gen_lc;
    
=head1 SUBROUTINES/METHODS

=head2 gen

=head2 gen_lc

=head2 gen_uc

=head1 AUTHOR