-
Notifications
You must be signed in to change notification settings - Fork 2
/
Government.pm
152 lines (145 loc) · 6.65 KB
/
Government.pm
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
package Random::Government;
use v5.10.0;
use strict;
use warnings;
use Exporter qw(import);
our $VERSION = '1.000';
our @EXPORT_OK = qw(random_government);
my %government = (
adhocracy => 'unstructured fashion; an unstructured organization',
anemocracy => 'wind or whim',
aristarchy => 'best',
aristocracy => 'nobility',
arithmocracy => 'simple majority',
barbarocracy => 'barbarians',
bureaucracy => 'civil servants',
cannonarchy => 'superior firepower or cannons',
chirocracy => 'physical force',
albocracy => 'white people',
corpocracy => 'corporate bureaucrats',
cosmarchy => 'rulership over the entire world, esp. the devil',
cryptarchy => 'secret rulership',
despotocracy => 'despots or tyrants',
endarchy => 'centralised government',
ergatocracy => 'workers or working class',
foolocracy => 'fools',
hamarchy => 'cooperative body of parts',
heroarchy => 'heroes',
hetaerocracy => 'paramours',
hyperarchy => 'excessive government',
iatrarchy => 'physicians',
isocracy => 'equal political power',
kakistocracy => 'worst',
kleptocracy => 'thieves',
kritarchy => 'judges',
logocracy => 'words',
magocracy => 'mages',
meritocracy => 'meritorious',
merocracy => 'part of the citizenry',
hyperanarchy => 'extreme anarchy',
oligarchy => 'few',
pantisocracy => 'all equally',
pentarchy => '5 people',
hexarchy => '6 people',
octarchy => '8 people',
ennearchy => '9 people',
hendecarchy => '11 people',
dodecarchy => '12 people',
tridecarchy => '13 people',
icosarchy => '20 people',
kiloarchy => '1,000 people',
myriarchy => '10,000 people',
infantocracy => 'infant',
patriarchy => 'men or fathers',
gerontocracy => 'aged',
angelocracy => 'angels',
diabolocracy => 'Devil',
ecclesiarchy => 'clerics or ecclesiastical authorities',
exarchy => 'bishops',
hagiarchy => 'saints or holy persons',
hagiocracy => 'holy men',
statocracy => 'state alone without ecclesiastical influence',
jesuitocracy => 'Jesuits',
paparchy => 'pope',
parsonarchy => 'parsons',
squarsonocracy => 'landholding clergymen',
thearchy => 'rule of a god or gods; body of divine rulers',
tritheocracy => '3 gods',
mesocracy => 'middle classes',
neocracy => 'new or inexperienced rulers',
nomocracy => 'legal system; rule of law',
panarchy => 'universal rule or dominion',
pantarchy => 'all the people; world government',
papyrocracy => 'newspapers or literature',
partocracy => 'single unopposed political party',
pedantocracy => 'pedants or strict rule-bound scholars',
philosophocracy => 'philosophers',
phylarchy => 'specific class or tribe',
physiocracy => 'according to natural laws or principles',
plantocracy => 'plantation owners',
millionocracy => 'millionaires',
policeocracy => 'police',
popocracy => 'populists',
pornocracy => 'harlots',
prophetocracy => 'prophet',
psephocracy => 'resulting from election ballot',
ptochocracy => 'beggars or paupers; wholesale pauperization',
punditocracy => 'political pundits',
quangocracy => 'quasi-autonomous non-governmental organizations',
slavocracy => 'slave-owners',
snobocracy => 'snobs',
sociocracy => 'society as a whole',
stratocracy => 'military rule',
strumpetocracy => 'strumpets',
synarchy => 'joint sovereignty',
technocracy => 'technical experts',
theatrocracy => 'gathered assemblies of citizens',
whiggarchy => 'Whigs',
);
$government{$_} = 'rulers of a particular skin colour' for qw(chromatocracy pigmentocracy);
$government{$_} = 'people' for qw(democracy demarchy);
$government{$_} = 'demons or evil forces' for qw(demonocracy demonarchy);
$government{$_} = 'slaves' for qw(doulocracy dulocracy);
$government{$_} = 'military' for qw(hoplarchy juntocracy stratocracy stratarchy);
$government{$_} = 'an ethnic group' for qw(ethnarchy ethnocracy);
$government{$_} = 'none' for qw(anarchy acracy antarchy);
$government{$_} = '1 individual' for qw(monarchy autarchy);
$government{$_} = '2 people' for qw(biarchy binarchy diarchy dinarchy duarchy dyarchy);
$government{$_} = '3 people' for qw(triarchy tritarchy);
$government{$_} = '4 people' for qw(tetrarchy tetradarchy);
$government{$_} = '7 people' for qw(heptarchy septarchy);
$government{$_} = '10 people' for qw(decarchy decadarchy);
$government{$_} = '100 people' for qw(hecatarchy hecatontarchy);
$government{$_} = 'children' for qw(paedarchy paedocracy);
$government{$_} = 'men' for qw(androcracy phallocracy);
$government{$_} = 'women' for qw(gynarchy gynaecocracy gynocracy gunarchy);
$government{$_} = 'women or mothers' for qw(matriarchy monocracy);
$government{$_} = 'priests or religious law' for qw(theocracy hierocracy hierarchy);
$government{$_} = 'mobs or crowds' for qw(mobocracy ochlocracy pollarchy);
$government{$_} = 'wealthy' for qw(plutarchy plutocracy plousiocracy chrysoaristocracy chrysocracy);
$government{$_} = 'money, monied classes' for qw(argentocracy moneyocracy);
$government{$_} = 'many people' for qw(polyarchy polycracy polarchy);
$government{$_} = 'squatters' for qw(squatterarchy squattocracy);
$government{$_} = 'squires' for qw(squirearchy squirocracy);
$government{$_} = 'propertied class' for qw(timarchy timocracy landocracy);
$government{$_} = 'foreigners' for qw(xenocracy heterarchy);
sub random_government {
my $in_government = shift;
my @array = keys %government;
my $random_government = $array[rand @array];
my $gov_description = $government{$random_government};
my $government;
if ($in_government && $in_government eq 'data') {
$government = \%government;
}
elsif ($in_government && $in_government eq 'note' ) {
$government = "$random_government (ruled by $gov_description)";
}
else {
$government = $random_government;
}
return $government;
}
# This module is free software; you can redistribute it and/or modify it under the same terms as Perl itself. See https://dev.perl.org/licenses/artistic.html.
# Copyright © 2020, Lady Aleena (aleena@cpan.org). All rights reserved.
1;