| Data-RandomPerson documentation | Contained in the Data-RandomPerson distribution. |
Data::RandomPerson::Names::VikingFemale - A list of female names
This document refers to version 0.4 of Data::RandomPerson::Names::VikingFemale, released Sept 13th, 2005
use Data::RandomPerson::Names::VikingFemale; my $n = Data::RandomPerson::Names::VikingFemale->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::VikingFemale 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: VikingFemale.pm,v 1.3 2005/05/22 17:02:30 peterhickman Exp $ package Data::RandomPerson::Names::VikingFemale; 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/ alfdis arnora asa asgerd asleif asta astrid aud bera bergljot bergthora dotta freydis gjaflaug grima grimhild groa gudrid gudrun gunnhild gyda halldis hallfrid hallgerd hallveig helga herdis hild hildigunn hlif hrefna hrodny ingibjorg ingigerd ingirid ingunn jorunn katla ragna ragnhild rannveig saeunn sigrid svala thjodhild thora thorbjorg thordis thorfinna thorgerd thorgunna thorhalla thorhild thorkatla thorunn thurid thyra unn valgerd vigdis / ); return $self; } 1; __END__