view release on metacpan or  search on metacpan

lib/Acme/ConspiracyTheory/Random.pm  view on Meta::CPAN

	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;