File Coverage

blib/lib/Acme/NameGen.pm

Criterion	Covered	Total	%
statement	15	15	100.0
branch			n/a
condition	2	6	33.3
subroutine	7	7	100.0
pod	3	3	100.0
total	27	31	87.1

package Acme::NameGen;

use 5.006;
use strict;
use warnings;

our $VERSION = '0.010000';

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__