File Coverage

blib/lib/Acme/MakeMoneyAtHome.pm

Criterion	Covered	Total	%
statement	23	28	82.1
branch	4	10	40.0
condition	1	3	33.3
subroutine	4	4	100.0
pod	0	1	0.0
total	32	46	69.5

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

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

our @Subject = (
  "roommate",
  "cousin",
  "neighbor",
  [ "mother", 'F' ],
  [ "father", 'M' ],
  [ "sensei", 'M' ],
  "associate",
  "senator",
  "friend",
  [ "aunt", 'F' ],
  "employer",
  "car dealer",
  [ "housemaid", 'F' ],
  "limousine driver",
  "study partner",
  "roommate",
  [ "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",
);

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",
);


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

  my @people;
  do {
    my $new_subj = $Subject[rand @Subject];
    $new_subj = shift @$new_subj if ref $new_subj and @people < 3;
    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  = (int rand 10_000) + 10_000;

  my @gender;
  if (ref $people[2] eq 'ARRAY') {
    $people[2] = shift @{ $people[2] };
    my $mf = shift @{ $people[2] };
    @gender = $mf eq 'M' ? ( 'He', 'his' ) : ( 'She', 'her' );
  } else {
    @gender = int rand 2 ? ( 'He', 'his' ) : ( 'She', 'her' );
  }

  "My $people[0]'s $people[1]'s $people[2] makes \$$hourly an hour on the "
  ."computer. $gender[0] has been without work for $unemploy months but last "
  ."month $gender[1] pay was \$$monthly from just $activity "
  ."a few hours per day."
}

1;


=pod

=head1 NAME

Acme::MakeMoneyAtHome - I made 17047 dollars just posting Acme dists to CPAN

=head1 SYNOPSIS

  use Acme::MakeMoneyAtHome;
  print make_money_at_home();

=head1 DESCRIPTION

Exports the function B, which can tell you how
much money your father's gym spotter's autistic goldfish made last month just
browsing 4chan a few hours per day.

=head1 CONTRIBUTORS

Perl-ified and maintained by Jon Portnoy

This Perl implementation is based on JavaScript written by B, whose
real name I'll put here if he ever trusts me enough to tell me.

=head1 LICENSE

Licensed under the same terms as Perl.

=cut