Acme-ConspiracyTheory-Random
view release on metacpan or search on metacpan
lib/Acme/ConspiracyTheory/Random.pm view on Meta::CPAN
'apples',
'Big Macs',
'KFC family buckets',
'most wines',
'Kraft instant mac and cheese boxes',
'bananas',
);
_MERGE_( $redstring, food => $food );
return $food;
}
sub attribute {
my $redstring = shift // {};
my $attr = _RANDOM_(
'gay',
'insane',
'infertile',
'immobile',
'horny',
'female',
'fat',
'fluorescent',
);
_MERGE_( $redstring, attribute => $attr );
return $attr;
}
sub artifact {
my $redstring = shift // {};
my $artifact = _RANDOM_(
'the holy grail',
'the golden fleece',
'Excalibur',
'the ark of the covenant',
"Jesus's foreskin",
'the Holy Prepuce',
'the Book of the Dead',
'the Necronomicon',
"the Philosopher's Stone",
"a fragment of the true cross",
"the seal of Solomon",
'the crystal skull',
sub { "a golden " . fake_animal( $redstring ) },
'the original copy of the bible',
'the original copy of the quran',
'the original copy of the Declaration of Independence',
);
_MERGE_( $redstring, artifact => $artifact );
return $artifact;
}
sub bad_place {
my $redstring = shift // {};
my $bad_place = _RANDOM_(
'a secret Antarctic base',
'Area 51',
'Langley, Virginia',
'Guantanamo Bay Detention Camp',
'Windsor Castle',
'The Pentagon',
'Denver International Airport',
'the basement of the Vatican',
sub { myth_place( $redstring ) },
sub {
my $p = random_place( $redstring );
"a series of tunnels underneath $p";
},
sub {
my $p = random_place( $redstring );
"a secret base in $p";
},
'a facility inside the hollow Earth',
);
_MERGE_( $redstring, bad_place => $bad_place );
return $bad_place;
}
sub random_place {
my $redstring = shift // {};
my $random_place = _RANDOM_(
'the USA',
'the UK',
'France',
'Italy',
'Germany',
'Spain',
'Egypt',
'Israel',
'Lebanon',
'Syria',
'Japan',
'China',
'Brazil',
'Argentina',
'Chile',
'Tunisia',
'Antarctica',
'Norway',
'Australia',
'New Zealand',
);
_MERGE_( $redstring, random_place => $random_place );
return $random_place;
}
sub myth_place {
my $redstring = shift // {};
my $place = _RANDOM_(
'the Garden of Eden',
'the lost city of Atlantis',
'the final resting place of Noah\'s Ark',
'the umbilicus mundi',
'Camelot',
"Lucifer's crypt",
"Jesus's grave",
"Jesus's true birthplace",
'the entrance to the hollow Earth',
'the REAL Stonehenge',
);
_MERGE_( $redstring, myth_place => $place );
return $place;
}
sub any_place {
my $redstring = shift // {};
lib/Acme/ConspiracyTheory/Random.pm view on Meta::CPAN
_MERGE_( $redstring, lies => $x );
return $x;
}
sub evidence {
my $redstring = shift // {};
my @x = (
"there's a video about it on YouTube",
sub { 'there was something about it on ' . website() },
"the voices told me",
"I had a dream",
sub { website() . ' is censoring me' },
sub { website() . ' was down this morning' },
);
if ( my $c = $redstring->{disease_cause} ) {
push @x, (
"$c is addictive",
);
}
if ( my $m = $redstring->{misinformation} ) {
push @x, (
"they indoctrinate people about '$m' at schools and if it were the truth they wouldn't need to",
"'$m' gets pushed down our throats by mass media",
"'$m' is a false-flag operation",
);
}
if ( my $auth = $redstring->{authority} ) {
push @x, (
"$auth are the obvious people to go to",
"$auth are the only ones with the power to stop them",
"$auth are able to save us",
);
}
if ( my $p = $redstring->{myth_place} ) {
push @x, (
"there are clues about $p in the Bible",
"there are clues about $p in the Voynich manuscript",
"$p is on some old maps",
"$p is on Google Maps",
);
}
if ( my $art = $redstring->{artifact} ) {
push @x, (
"$art isn't in any museum",
"$art must be somewhere",
"$art is out there",
"$art can be found with GPS",
);
}
if ( my $proj = $redstring->{shady_project} ) {
push @x, (
"everybody knows $proj is happening soon",
"$proj is well-funded",
"$proj is an open secret",
"there is so much evidence for $proj",
);
}
if ( my $dl = $redstring->{dark_lord} ) {
push @x, (
"$dl is known to be growing in power",
"$dl has never seemed more powerful",
"$dl needs to be getting power from somewhere",
"$dl told me",
"I have seen signs from $dl",
);
}
if ( my $v = $redstring->{victim} // $redstring->{physicist} // $redstring->{biologist} ) {
push @x, (
"$v died too young",
"$v sent a letter containing the truth before dying",
sub {
my $clone = clone( $redstring );
"when they did an autopsy on $v it turned out it was $clone",
},
"they never did an autopsy on $v",
"$v wrote a will",
sub {
my $g = shady_group( $redstring );
"$v was secretly one of $g";
},
sub {
my $animal = real_animal( $redstring );
"when they did an autopsy on $v it turned out they were secretly a $animal in a human suit";
},
);
}
if ( my $v = $redstring->{physicist} // $redstring->{biologist} ) {
push @x, (
"$v isn't mentioned in Aristotle's writing",
"$v hasn't given a lecture in months",
"$v isn't taken seriously by TRUE SCIENTISTS",
);
}
if ( my $c = $redstring->{celebrity} ) {
if ( $c->{female} ) {
push @x, (
"you can't trust women",
"she said so on her Twitter",
);
}
else {
push @x, (
"you can't trust men",
"he said so on his Twitter",
);
}
}
if ( my $f = $redstring->{fiction} ) {
push @x, (
$f->{title} . " has secret messages encoded in it with numerology",
$f->{title} . " is satanic",
sub {
my $g = shady_group( $redstring );
my $has = splural( $redstring->{shady_group} ) ? 'have' : 'has';
$f->{author} . " $has ties to $g";
},
sub {
my $b = bad_place( $redstring );
$f->{author} . " got taken to $b for questioning";
},
);
if ( my $p = $redstring->{random_place} ) {
push @x, (
$f->{author} . " had a secret home in $p",
$f->{author} . " was secretly born in $p",
);
}
}
if ( my $animal = $redstring->{real_animal} // $redstring->{fake_animal} ) {
push @x, (
"the $animal wasn't mentioned in the Bible",
"the $animal was mentioned in the Satanic Verses",
"the $animal looks kind of weird",
"nobody has ever seen a $animal in real life",
"the $animal obviously isn't native to this planet",
sub { "${ \ shady_group($redstring) } sacrifice $animal${\'s'} to ${ \ dark_lord($redstring) }" },
"the $animal looks bigger in real life",
"the $animal makes a funny noise",
"Alex Jones did a podcast about the $animal",
);
}
if ( my $mc = $redstring->{mind_control_device} ) {
my $time = a_long_time();
my $mcp = $redstring->{mind_control_device_plural};
my $is = 'is';
my $has = 'has';
my $was = 'was';
if ($mcp) {
$is = 'are';
$has = 'have';
$was = 'were';
}
push @x, (
"everybody knows $mc $is real",
sub { "$mc $has been researched by ${ \ shady_group($redstring) } $time" },
sub { "$mc $was used to conceal ${ \ shady_group($redstring) } $time" },
sub { "$mc $was used to infiltrate ${ \ shady_group($redstring) }" },
);
}
if ( my $ft = $redstring->{future_time} ) {
push @x, (
"some of the few people still alive $ft time-travelled back to tell us",
"the people still alive $ft sent us hidden messages in ${ \ fiction() }",
"it will all become clear $ft",
);
}
if ( my $d = $redstring->{disease} ) {
push @x, (
"patients with $d keep disappearing from hospitals",
"patients with $d are being silenced by the government",
"doctors working on $d are being killed",
"$d probably isn't even a real disease",
"nobody has ever died of $d",
);
}
if ( my $f = $redstring->{food} ) {
push @x, (
"$f don't taste like they used to",
"$f smell funny",
"$f make me feel sick",
"I don't like $f",
);
}
if ( my $chem = $redstring->{chemicals} ) {
push @x, (
"$chem isn't on the periodic table",
"$chem isn't real",
"$chem isn't natural",
"you'd have to be stupid to think $chem is real",
);
}
if ( my $r = $redstring->{precious_resource} ) {
my ( $bad, $are, $r_are );
$redstring->{shady_group}{name} or shady_group( $redstring );
foreach ( qw/ antagonist protagonist shady_group / ) {
if ( $redstring->{$_}{name} ) {
$bad = $redstring->{$_}{name};
$are = $redstring->{$_}{plural} ? 'are' : 'is';
$r_are = ($r =~ /s$/) ? 'are' : 'is';
}
}
push @x, (
"the Wikipedia entry for $r keeps getting edited by $bad",
"$bad keeps buying $r secretly on the stock market",
"the global supply of $r is at an all time low",
"have you ever seen $r for real with your own eyes",
"$r $r_are so damn expensive",
"$r $r_are really rare",
"Alex Jones says $bad $are linked to $r",
);
}
if ( my $topic = $redstring->{topic} ) {
my $topicname = $topic->{name};
my $have = $topic->{plural} ? 'have' : 'has';
push @x, (
"there's hidden clues in the Wikipedia page about $topicname",
"THEY let it slip during an edit war in a Wikipedia page about $topicname",
"Bible numerology has clues about $topicname",
"the Voynich manuscript has clues about $topicname",
"$topicname $have always been suspicious",
"$topicname $have connections to THEM",
"nobody really understands $topicname",
"all my posts about $topicname keep getting taken down by Tumblr",
);
}
if ( my $p = $redstring->{random_place} // $redstring->{bad_place} ) {
my $bad = $redstring->{antagonist}{name}
// $redstring->{protagonist}{name}
// $redstring->{shady_group}{name}
// shady_group( $redstring );
push @x, (
"the Wikipedia entry for $p keeps getting edited by $bad",
# This has singular/plural problems - how to solve?
"$bad has ties to $p",
"$p probably isn't a real place anyway",
"$p isn't shown on any maps",
);
}
for my $actor ( qw/ protagonists antagonists / ) {
next unless $redstring->{$actor}{name};
my $name = $redstring->{$actor}{shortname} // $redstring->{$actor}{name};
my $have = splural( $redstring->{$actor} ) ? 'have' : 'has';
my $are = splural( $redstring->{$actor} ) ? 'are' : 'is';
my $s = splural( $redstring->{$actor} ) ? '' : 's';
my $ies = splural( $redstring->{$actor} ) ? 'y' : 'ies';
( my $fbname = $name ) =~ s/^the //i;
$fbname = _UCFIRST_ $fbname;
my $lies = lies();
push @x, (
"$name $have included it in their manifesto",
"$name $have been strangely quiet about it",
"$name $are always untrustworthy",
"$name $are controlling everything",
"if you Google for $name there's loads of info",
"the '$fbname Truth' Facebook page says so",
"the '$fbname Exposed' website says so",
"$name even admit$s it",
"$name den$ies it but that is $lies",
);
if ( my $animal = $redstring->{real_animal} // $redstring->{fake_animal} ) {
push @x, "$name $have a picture of the $animal on their Wikipedia entry";
}
if ( my $place = $redstring->{random_place} ) {
push @x, "$name $have a secret base in $place";
}
if ( my $topic = $redstring->{topic} ) {
my $topicname = $topic->{name};
push @x, (
"$name ${( $redstring->{$actor}{plural} ? \'keep' : \'keeps' )} editing the Wikipedia page about $topicname",
"$name $are known to have ties to $topicname",
"'$name' is almost an anagram of '$topicname'",
"'$name' is the Hebrew word for '$topicname'",
"'$name' is an anagram of '$topicname' (if you spell it wrong)",
);
}
}
my @evidences = List::Util::uniq( map { _RANDOM_(@x) } 1..2 );
if ( @evidences == 2 ) {
my ( $e1, $e2 ) = @evidences;
return _RANDOM_(
"You can tell this is the truth because $e1, and $e2.",
( ( "I know because $e1, and $e2." ) x 6 ),
"You just need to connect the dots. " . _UCFIRST_( "$e1 and $e2." ),
"I used to be asleep like you, but then I saw the clues. " . _UCFIRST_( "$e1, and $e2. WAKE UP!" ),
"THEY HIDE THE TRUTH IN PLAIN SIGHT. " . _UCFIRST_( "$e1, and $e2." ),
"You won't believe how deep the rabbit hole goes. " . _UCFIRST_( "$e1, and $e2." ),
sub { _UCFIRST_("$e1, and $e2. " . fatuous()) },
sub {
my $e3 = uc _RANDOM_(@x);
my $fatuous = fatuous();
_UCFIRST_( "$e1, and $e2. $fatuous $e3!" );
},
sub {
my $e3 = uc _RANDOM_(@x);
_UCFIRST_( "$e1, and $e2. They leave clues to mock us! $e3! MOCK! MOCK!" );
},
sub {
my $t = {};
theory($t);
_UCFIRST_( "$e1, and $e2. Isn't it obvious? Also: " . $t->{base_theory} );
},
);
}
elsif ( @evidences == 1 ) {
my ( $e1 ) = @evidences;
return _RANDOM_(
"You can tell the truth because $e1.",
_UCFIRST_("$e1 and that reveals the truth."),
"The truth is obvious if you're not a sheep, $e1.",
);
}
return _RANDOM_(
'The truth is plain to see.',
"You're blind if you can't see the truth.",
"The truth is obvious if you're not a sheep.",
);
}
sub hidden_truth {
my $redstring = shift // {};
lib/Acme/ConspiracyTheory/Random.pm view on Meta::CPAN
my $cause = disease_cause( $redstring );
my $disease = disease( $redstring );
$redstring->{topic} = { name => 'western medicine', plural => 0 };
"$cause causes $disease";
},
sub {
my $cryptids = cryptids( $redstring );
my $group = shady_group( $redstring );
"$group are $cryptids";
},
sub {
my $objects = objects( $redstring );
"$objects are sentient";
},
sub {
my $celebrity = celebrity( $redstring );
my $long_time = a_long_time( $redstring );
"$celebrity has been drinking the blood of infants $long_time to stay looking young";
},
sub {
my $celebrity = celebrity( $redstring );
$redstring->{topic} = { name => 'cross-dressing', plural => 0 };
$redstring->{celebrity}{female} = ! $redstring->{celebrity}{female};
"$celebrity is transsexual";
},
sub {
my $celebrity = celebrity( $redstring );
my $consequence = _RANDOM_(
sub {
$redstring->{topic} = { name => 'robotics', plural => 0 };
'replaced by a robot';
},
sub {
$redstring->{topic} = { name => 'impersonation', plural => 0 };
'replaced by a look-alike';
},
sub {
$redstring->{topic} = { name => 'blackmail', plural => 0 };
'blackmailed into silence';
},
);
"$celebrity has been $consequence";
},
sub {
my $objects = objects( $redstring );
my $group = shady_group( $redstring );
"$objects were invented by $group";
},
sub {
my $resource = precious_resource( $redstring );
"$resource is a source of free energy";
},
sub {
my $mythplace = myth_place( $redstring );
my $place = random_place( $redstring );
"$mythplace is in $place";
},
sub {
my $victim = victim( $redstring );
my $mythplace = myth_place( $redstring );
"$victim discovered $mythplace and was killed to keep it a secret";
},
sub {
my $resource = precious_resource( $redstring );
my $disease = disease( $redstring );
"$resource can cure $disease";
},
sub {
my $animal = real_animal( $redstring );
my $group = shady_group( $redstring );
"the $animal is a fake animal, engineered by $group";
},
sub {
my $chemicals = chemicals( $redstring );
my $animal = real_animal( $redstring );
my $s = ($animal ne 'fish') ? 's' : '';
my $attribute = attribute( $redstring );
"the $chemicals in the water is turning the $animal$s $attribute";
},
sub {
my $chemicals = chemicals( $redstring );
my $food = food( $redstring );
"$food are full of $chemicals";
},
sub {
my $animal = real_animal( $redstring );
"the $animal originally comes from another planet";
},
sub {
my $animal = real_animal( $redstring );
my $group = shady_group( $redstring );
my $stupid = _RANDOM_(
'people in costumes',
'animatronics',
'CGI',
'highly coordinated swarms of bees',
'holograms',
'a mirage',
);
"the $animal is a fake animal and is just $stupid";
},
sub {
my $animal = fake_animal( $redstring );
"the $animal is a real animal";
},
sub {
my $time = future_time( $redstring );
"the world will end $time";
},
sub {
my $time = future_time( $redstring );
$redstring->{topic} = { name => 'comets', plural => 1 };
"the comet will hit us $time";
},
sub {
my $place = random_place( $redstring );
$redstring->{topic} = { name => 'flooding', plural => 1 };
"$place was destroyed by floods";
},
sub {
my $place = random_place( $redstring );
lib/Acme/ConspiracyTheory/Random.pm view on Meta::CPAN
my $theory = _RANDOM_(
sub {
my $group = shady_group( $redstring );
$redstring->{protagonists} = $redstring->{shady_group};
my $is = $redstring->{protagonists}->{plural} ? 'are' : 'is';
my $misinfo = misinformation( $redstring );
my $truth = hidden_truth( $redstring );
my $exclaim = _RANDOM_(
'', '', '', '', '', '',
" But the truth shall not be buried!",
" Don't let yourself be deceived!",
" Take the red pill!",
" Believing $misinfo is taking the blue pill!",
" Take the red pill - $truth!",
" Believing $misinfo is for blue-pilled sheeple!",
" Open your mind!",
);
_UCFIRST_ "$group $is spreading the lie that $misinfo to distract the public from the truth that $truth.$exclaim";
},
sub {
my $protagonists = shady_group( $redstring );
$redstring->{protagonists} = $redstring->{shady_group};
my $antagonists = shady_group( $redstring );
$redstring->{antagonists} = $redstring->{shady_group};
my $time = a_long_time( $redstring );
my $war_reason = _RANDOM_(
'Nobody knows why',
'The reasons for this have been long forgotten',
sub {
my $consequence = _RANDOM_(
'disappears',
'is assassinated',
sub {
my $badplace = bad_place( $redstring );
"is taken away to $badplace";
},
sub {
my $badplace = bad_place( $redstring );
"has their mind wiped at $badplace";
},
'is given a blue pill',
);
"Everybody who finds out why $consequence";
},
sub {
my $truth = hidden_truth();
my $pro = $redstring->{protagonists}{shortname} // $protagonists;
my $ant = $redstring->{antagonists}{shortname} // $antagonists;
my $want = splural( $redstring->{protagonists} ) ? 'want' : 'wants';
_UCFIRST_ "$pro $want to expose the truth that $truth and $ant will do whatever they can to stop them";
},
);
_UCFIRST_ "$protagonists and $antagonists have been in a secret war with each other $time. $war_reason."
},
sub {
my $group = shady_group( $redstring );
$redstring->{protagonists} = $redstring->{shady_group};
my $victim = victim( $redstring );
my $truth = hidden_truth( $redstring );
my $explanation = _UCFIRST_ _RANDOM_(
sub {
my $group2 = shady_group( $redstring );
$redstring->{antagonists} = $redstring->{shady_group};
"$victim learnt the truth from $group2";
},
"Nobody knows how $victim found out",
"$victim found out because they were the source of all knowledge",
"$victim found out using time travel",
"$victim found out using mind reading",
"$victim took the red pill",
);
_UCFIRST_ "$group killed $victim to hide the truth that $truth. $explanation.";
},
sub {
my $truth = hidden_truth( $redstring );
my $sheeple = _RANDOM_(
'people are sheeple',
'they refuse to see the truth',
'the mass media refuse to report it',
sub {
my $group = shady_group( $redstring );
$redstring->{protagonists} = $redstring->{shady_group};
my $is = $redstring->{protagonists}->{plural} ? 'are' : 'is';
my $mc = mind_control_device( $redstring );
"$group $is controlling people's minds with $mc";
},
sub {
my $group = shady_group( $redstring );
$redstring->{protagonists} = $redstring->{shady_group};
my $have = $redstring->{protagonists}->{plural} ? 'have' : 'has';
my $long_time = a_long_time( $redstring );
"$group $have been hiding it $long_time";
},
sub {
my $group = shady_group( $redstring );
$redstring->{protagonists} = $redstring->{shady_group};
my $is = $redstring->{protagonists}->{plural} ? 'are' : 'is';
my $medium = _RANDOM_(
'the Internet',
'Twitter',
'Facebook',
'Instagram',
'the mass media',
'the TV news',
'Tiktok',
'both Tiktok and Instagram',
);
lib/Acme/ConspiracyTheory/Random.pm view on Meta::CPAN
"the 'theory' of evolution",
'modern medicine',
"the germ theory of disease",
"our understanding of DNA",
'creation science',
);
_UCFIRST_ "$biologist discovered that $fact but the scientific establishment is suppressing it because it would destroy $destruction. $solution";
},
sub {
my $group = shady_group( $redstring );
$redstring->{protagonists} = $redstring->{shady_group};
my $have = $redstring->{protagonists}->{plural} ? 'have' : 'has';
my $place = random_place( $redstring );
my $how = _RANDOM_(
"by diverting flights to $place to a Hollywood studio",
'using mirrors',
'by paying the UN',
'by talking with funny accents',
'by hacking satellites',
);
_UCFIRST_ "$place is just a hologram created by $group who $have been hiding it for years $how.";
},
sub {
my $place = random_place( $redstring );
my $truth1 = hidden_truth( $redstring );
_UCFIRST_ _RANDOM_(
"It is common knowledge in $place that $truth1.",
"They teach $truth1 at schools in $place.",
"Everybody in $place knows that $truth1.",
"People in $place found out that $truth1.",
);
},
sub {
my $celeb = celebrity( $redstring );
my $pronoun = $redstring->{celebrity}{female} ? 'she' : 'he';
my $truth1 = hidden_truth( $redstring );
my $group = shady_group( $redstring );
$redstring->{protagonists} = $redstring->{shady_group};
my $are = $redstring->{protagonists}->{plural} ? 'are' : 'is';
my $silence = _RANDOM_(
"$pronoun will probably have to be eliminated",
"$pronoun is going to be killed if $pronoun isn't dead already",
"$pronoun is being paid to stay quiet",
"$pronoun will meet a convenient \"accident\"",
sub {
my $clone = clone( $redstring );
"$pronoun has been replaced by $clone";
},
sub {
my $place = bad_place( $redstring );
"$pronoun has been imprisoned in $place";
},
);
_UCFIRST_ "$celeb found out that $truth1 and $silence. " . _UCFIRST_ "$group $are protecting this secret.";
},
sub {
my $celeb = celebrity( $redstring );
my $pronoun = $redstring->{celebrity}{female} ? 'she' : 'he';
my $group = shady_group( $redstring );
$redstring->{protagonists} = $redstring->{shady_group};
_UCFIRST_ _RANDOM_(
"$celeb is a member of $group.",
"$celeb is a former member of $group.",
"$celeb was thrown out of $group.",
"$celeb infiltrated $group.",
"$celeb is the leader of $group.",
"$celeb is secretly worshipped by $group.",
);
},
);
if ( $redstring->{protagonists} and not $redstring->{antagonists} and _RANDOM_(0..1) ) {
my $group1 = $redstring->{protagonists}{shortname} // $redstring->{protagonists}{name};
my $group2 = shady_group( $redstring );
$redstring->{antagonists} = $redstring->{shady_group};
my $know = splural ($redstring->{antagonists}) ? 'know' : 'knows';
$theory .= " " . _UCFIRST_ _RANDOM_(
sub {
my $bribe = precious_resource_with_quantity( $redstring );
"$group2 $know the truth but $group1 have paid them off with $bribe.";
},
"$group2 $know the truth but $group1 have threatened them to keep them silent.",
"$group2 were helping them until $group1 betrayed them.",
"$group2 were helping them for a while.",
"$group2 were originally opposed to this but they're now in on it.",
"$group2 are trying to get evidence to prove it.",
);
}
_MERGE_( $redstring, base_theory => $theory );
my $evidence = evidence( $redstring );
$theory .= " $evidence" if $evidence;
my $numerology = numerology( $redstring );
$theory .= " $numerology" if $numerology;
_MERGE_( $redstring, theory => $theory );
return $theory;
}
my %special_numbers = (
19 => [ qr/COVID/, '19 is the coronavirus number' ],
24 => [ qr/TINTIN/, 'There are 24 Tintin comics' ],
33 => [ qr/MASON/, '33 is associated with the masons' ],
35 => [ qr/ELVIS/, 'Elvis was born in 1935' ],
44 => [ qr/OBAMA/, 'Barack Obama was the 44th President of the USA' ],
45 => [ qr/TRUMP|QANON|USA/, 'Donald Trump was the 45th President of the USA',
qr/UNITEDNATIONS/, 'The United Nations was founded in 1945' ],
46 => [ qr/BIDEN/, 'Joe Biden was the 46th President of the USA' ],
47 => [ qr/THECIA/, 'The CIA was founded in 1947',
qr/SILVER/, 'Silver has atomic number 47' ],
49 => [ qr/NATO/, 'NATO was founded in 1949' ],
51 => [ qr/KFC/, 'Area 51 is the fifty-first area' ],
52 => [ qr/KFC/, 'KFC was founded in 1952' ],
55 => [ qr/BIGMAC|MCDONALDS/, 'McDonalds was founded in 1955' ],
63 => [ qr/JFK|OSWALD/, 'JFK was shot in 1963' ],
79 => [ qr/GOLD/, 'Gold has the atomic number 79' ],
81 => [ qr/HIV/, 'AIDS was discovered in 1981' ],
82 => [ qr/COKE/, 'Diet Coke first came out in 1982' ],
86 => [ qr/RADON/, 'The atomic number for radon is 86' ],
92 => [ qr/URANIUM/, 'The atomic number for uranium is 92' ],
322 => [ qr/SKULL/, 'Skull and Bones is Order 322' ],
666 => [ qr/DEVIL|DEMON|SATAN/, '666 is the number of the beast' ],
);
lib/Acme/ConspiracyTheory/Random.pm view on Meta::CPAN
)
);
}
return '';
}
sub bad_punctuation {
my ( $string, $cancel ) = @_;
unless ( $cancel ) {
$string =~ s/ ([A-Za-z]) ([,!?]) / $1 . _RANDOM_( $2, " $2", " $2", " $2$2") /exg;
$string =~ s/ ([A-Za-z]) ([.]) / $1 . _RANDOM_($2, $2, " $2", " ", " $2$2$2") /exg;
$string =~ s/\!/_RANDOM_('!', '!', '!!', "!!!!")/ex;
}
return $string;
}
1;
__END__
=pod
=encoding utf-8
=head1 NAME
Acme::ConspiracyTheory::Random - random theories
=head1 SYNOPSIS
use feature 'say';
use Acme::ConspiracyTheory::Random -all;
say bad_punctuation( theory() );
=head1 DESCRIPTION
This module exports a function, C<< theory() >> which returns a string.
=for html <p><img src="https://raw.githubusercontent.com/tobyink/p5-acme-conspiracytheory-random/master/assets/pepe-silvia.jpeg" alt=""></p>
There is also a function C<< bad_punctuation >> which, given a string, might
make the punctuation worse.
=head1 BUGS
Please report any bugs to
L<https://github.com/tobyink/p5-acme-conspiracytheory-random/issues>.
=head1 SEE ALSO
REDACTED
=head1 AUTHOR
Toby Inkster E<lt>tobyink@cpan.orgE<gt>.
=head1 CONTRIBUTORS
Alex Jones discovered that there are secretly other people who have contributed
to this module but Toby Inkster is working with Microsoft and the Illuminati to
cover it up. I tried to blog about it but all my posts keep getting taken down
from Tumblr. There are hidden clues on L<GitHub|https://github.com/tobyink/p5-acme-conspiracytheory-random/graphs/contributors>.
You don't want to know how deep this rabbit hole goes!
=head1 COPYRIGHT AND LICENCE
This software is copyright (c) 2021 by Toby Inkster.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
=head1 DISCLAIMER OF WARRANTIES
THIS PACKAGE IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR IMPLIED
WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF
MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
( run in 2.175 seconds using v1.01-cache-2.11-cpan-98e64b0badf )