view release on metacpan or  search on metacpan

lib/Acme/MakeMoneyAtHome.pm  view on Meta::CPAN

package Acme::MakeMoneyAtHome;
$Acme::MakeMoneyAtHome::VERSION = '1.004001';
use strict; use warnings;

use Exporter 'import'; 
our @EXPORT = 'make_money_at_home';

our @Subject = (
  "roommate",
  "cousin",
  [ "mother", 'F' ],
  [ "father", 'M' ],
  [ "sensei", 'M' ],
  "associate",
  "senator",
  "friend",
  [ "aunt", 'F' ],
  "employer",
  "car dealer",
  [ "housemaid", 'F' ],
  "limousine driver",
  "study partner",
  [ "half-sister", 'F' ],
  [ "step-uncle", 'M' ],
  "Perl mentor",
  "third cousin",
  [ "mother-in-law", 'F' ],
  [ "father-in-law", 'M' ],
  "tennis partner",
  "gym spotter",
  "statistician",
  "hairdresser",
  "dungeon master",
  "priest",
  "BFF",
  [ "sugar daddy", 'M' ],
  "secret lover",
  [ "great grandmother", 'F' ],
  "retarded parakeet",
  "chemistry assistant",
  "meth cook",
  "crippled dog",
  "deaf cat",
  "PHP advisor",
  "personal trainer",
  "neighbor",
  "lacrosse teammate",
  "distant Russian relative",
  "personal cheerleader",
  "autistic goldfish",
  "dishwasher",
  "valet",
  "caddy",
  "system administrator",
);

our @Activity = (
  "photoshopping dicks",
  "browsing 4chan",
  "posting memes",
  "mining scamcoins",
  "browsing CPAN",
  "avoiding honest work",
  "being a fucktard on Tumblr",
  "smoking weed",
  "scamming people",
  "writing to Nigerian princes",
  "collecting reddit karma",
  "mocking celebrities",
  "playing Farm Birds on MyFace+",
  "IRCing",
  "answering fetish surveys",
  "finding version.pm bugs",
  "blowing cocaine",
  "swiping Tinder",
  "posting to stackoverflow",
  "watching pornography",
  "measuring midgets",
);


sub make_money_at_home {
  my $activity = $Activity[rand @Activity];

  my @people;
  do {
    my $new_subj = $Subject[rand @Subject];
    $new_subj = $new_subj->[0] if ref $new_subj and @people < 2;
    push @people, $new_subj unless grep {; $_ eq $new_subj } @people;
  } until @people == 3;

  my $unemploy = (int rand 36) + 4;
  my $hourly   = (int rand 60) + 40;
  my $monthly  = (60 * $hourly) + sprintf '%.2f', rand(200);

  my @gender;
  if (ref $people[2] eq 'ARRAY') {