| Data-RandomPerson documentation | Contained in the Data-RandomPerson distribution. |
Data::RandomPerson::Names::AncientGreekFemale - A list of female names
This document refers to version 0.4 of Data::RandomPerson::Names::AncientGreekFemale, released Sept 13th, 2005
use Data::RandomPerson::Names::AncientGreekFemale; my $n = Data::RandomPerson::Names::AncientGreekFemale->new(); print $n->get();
Returns a random element from a list of female names culled from Chris Pound's language machines page at http://www.ruf.rice.edu/~pound/#scripts.
Create the Data::RandomPerson::Names::AncientGreekFemale object.
Returns a random name from the list.
Returns the size of the list
Perl 5
None
None so far
None
None
Peter Hickman (peterhi@ntlworld.com)
Copyright (c) 2005, Peter Hickman. All rights reserved. This module is free software. It may be used, redistributed and/or modified under the same terms as Perl itself.
| Data-RandomPerson documentation | Contained in the Data-RandomPerson distribution. |
# $Id: AncientGreekFemale.pm,v 1.3 2005/05/22 17:02:28 peterhickman Exp $ package Data::RandomPerson::Names::AncientGreekFemale; use strict; use warnings; use base 'Data::RandomPerson::Names'; use Data::RandomPerson::Choice; sub new { my ($class) = @_; my $self = bless {}, $class; $self->{choice} = Data::RandomPerson::Choice->new(); $self->{choice}->add_list( qw/ actaia actoris aegialeia aerope aethra aethylla aganippe aglaia alcimede amphinome anticlea arne astynome astyoche autolye callianeira canache chione chloe circe clytemnestra clytie creusa cymodece danae daphne deianara deidameia dirce dynamene eidyia eriphyle eurynome galatea halia helen hesione hiera ianassa iaria leda leucippe limnoraea maera mante meda melantho melite metaneira nacippe nemertes nesaea orithyia otionia panope penthesilia periboea perimede periopis pero pherusa philomele polymede polymele polypheme polyxena prote protogoria scarphe sibyl speio tecmessa thaleia theano thoe xanthippe xenoclea / ); return $self; } 1; __END__