view release on metacpan or  search on metacpan

lib/Game/CharacterSheetGenerator/DwarfNames.pm  view on Meta::CPAN

#!/usr/bin/env perl
# Copyright (C) 2012-2022  Alex Schroeder <alex@gnu.org>

# This program is free software: you can redistribute it and/or modify it under
# the terms of the GNU General Public License as published by the Free Software
# Foundation, either version 3 of the License, or (at your option) any later
# version.
#
# This program is distributed in the hope that it will be useful, but WITHOUT
# ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
# FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License along with
# this program. If not, see <http://www.gnu.org/licenses/>.

=encoding utf8

=head1 NAME

Game::CharacterSheetGenerator::DwarfName - return a dwarf name

=head1 SYNOPSIS

    use Game::CharacterSheetGenerator::DwarfName qw(dwarf_name);
    # returns both $name and $gender (F, M, or ?)
    my ($name, $gender) = dwarf_name();
    # returns the same name and its gender
    ($name, $gender) = dwarf_name("Alex");

=head1 DESCRIPTION

This package has one function that returns a dwarf name and a gender. The gender
returned is "M", "F", or "?".

If a name is provided, the gender is returned.

=cut

package Game::CharacterSheetGenerator::DwarfNames;
use Modern::Perl;
use utf8;

require Exporter;
our @ISA = qw(Exporter);
our @EXPORT_OK = qw(dwarf_name);

sub one {
  my $i = int(rand(scalar @_));
  return $_[$i];
}

# https://dwarrowscholar.wordpress.com/general-documents/male-dwarf-outer-names/
# https://dwarrowscholar.wordpress.com/general-documents/female-dwarf-outer-names/

my @names = qw{Aín M Áiskjald M Áispori M Áithrasir M Áivari M Ajar M Áki M
Albin M Alekin M Alf M Alfar M Alfi M Alfin M Alfskjald M Alfthrasir M Alfvari M
Althar M Althi M Althin M Althjof M Althskjald M Althspori M Alththrasir M
Althvari M Álvfinnur M Álvhethin M Alvi M Álvur M Ámundur M Anar M Andar M Andi
M Andin M Andri M Andskjald M Andspori M Andthrasir M Andvari M Ani M Anin M
Anskjald M Anspori M Anthrasir M Anvari M Ari M Ári M Aritur M Arnaldur M
Arnfinnur M Arnfríthur M Arngrímur M Arni M Árni M Arnlígur M Arnljótur M
Arnoddur M Arvinur M Ásbergur M Ásbrandur M Ásfinnur M Ásgrímur M Ási M Askur M
Áslakur M Ásleivur M Ásmóthur M Ásmundur M Ásvaldur M Ásvarthur M Atli M Aurar M
Auri M Aurin M Aurskjald M Aurspori M Aurthrasir M Aurvang M Aurvari M Austar M
Austi M Austin M Austri M Austskjald M Austspori M Austvari M Ávaldur M Balar M
Baldur M Baldvin M Bali M Balin M Bálli M Balskjald M Balspori M Balthrasir M
Balvari M Baraldur M Báraldur M Barinur M Bárivin M Bárthur M Bávurin M Beini M
Benrin M Bergfinnur M Bergfríthur M Bergleivur M Bergur M Bersi M Bessi M Bifar
M Bifi M Bifin M Bifskjald M Bifspori M Bifur M Bifvari M Bilar M Bilbur M Bildr
M Bili M Bilin M Billar M Billi M Billin M Billing M Billskjald M Billspori M
Billthrasir M Bilskjald M Bilthrasir M Bilvari M Birni M Bjarki M Bjarngrímur M
Bjarnhethin M Bjarni M Bjarnvarthur M Bjarti M Bjartur M Bjórgfinnur M
Bjórghethin M Bjórgolvur M Bjórgúlvur M Bofar M Bofi M Bofin M Bofskjald M
Bofspori M Bofthrasir M Bofur M Bofvari M Bogi M Bombar M Bombi M Bombin M
Bombskjald M Bombspori M Bombthrasir M Bombur M Bombvari M Bótolvur M Bragi M
Bráli M Brandur M Brávur M Bresti M Brialdur M Broddi M Broddur M Bróin M Bróri
M Brosi M Brunar M Bruni M Brunin M Brunskjald M Brunspori M Brunthrasir M Brúsi
M Brynjolvur M Brynleivur M Búgvi M Búi M Burar M Buri M Burin M Burinur M Bursi
M Burskjald M Burspori M Burthrasir M Dagbjartur M Dagfinnur M Dagur M Dáin M
Dár M Daskjald M Dávi M Dávur M Díthrikur M Ditleivur M Djóni M Dolgar M Dolgi M
Dolgin M Dolgskjald M Dolgspori M Dolgthrasir M Dolgvari M Dorar M Dori M Dorin
M Dorskjald M Dorspori M Dorthrasir M Dorvari M Draupar M Draupi M Draupin M
Draupnir M Draupskjald M Draupspori M Draupthrasir M Draupvari M Dróin M Drúinur
M Duf M Dufar M Dufi M Dufin M Dufskjald M Dufthrasir M Dufvari M Dunaldur M
Durar M Duri M Durinar M Durskjald M Durspori M Durthrasir M Durvari M Dwali M
Dwalin M Dwalskjald M Dwalspori M Dwalthrasir M Dwalur M Dwalvari M Dwárli M
Ebbi M Edmundur M Edvin M Egi M Egin M Eikar M Eiki M Eikin M Eikinskjaldi M
Eikskjald M Eikspori M Eikthrasir M Eikvari M Eilívur M Eindri M Eiri M Eirikur
M Eivindur M Eli M Ellindur M Enokur M Erlendur M Erlingur M Esmundur M Filar M
Fili M Filin M Filskjald M Filspori M Filthrasir M Filvari M Finn M Finnar M
Finnbogi M Finnfríthi M Finni M Finnin M Finnleivur M Finnskjald M Finnspori M
Finnur M Finnvari M Fjalar M Fjali M Fjalin M Fjalskjald M Fjalspori M
Fjalthrasir M Fjalvari M Fláim M Fláimingur M Flemmingur M Flói M Flóki M Flosi
M Flóvin M Fraeg M Fráin M Frar M Frár M Frarar M Frari M Frarin M Frarskjald M
Frarspori M Frarthrasir M Fraspori M Frathrasir M Fravari M Fridleivur M
Fríthálvur M Fríthbjartur M Fríthfinnur M Fríthi M Fríthmundur M Frítholvur M
Fríthrikur M Fríthur M Frostar M Frosti M Frostin M Frostskjald M Frostspori M
Frostthrasir M Frostvari M Fróthi M Fulla M Fundar M Fundi M Fundin M Fundskjald
M Fundspori M Fundthrasir M Fundvari M Ganar M Gani M Ganin M Ganskjald M
Ganthrasir M Geirbrandur M Geirfinnur M Geiri M Geirmundur M Geirolvur M Geirur