File Coverage

blib/lib/Acme/MakeMoneyAtHome.pm
Criterion Covered Total %
statement 20 20 100.0
branch 2 4 50.0
condition n/a
subroutine 4 4 100.0
pod 0 1 0.0
total 26 29 89.6


line stmt bran cond sub pod time code
1             package Acme::MakeMoneyAtHome;
2             $Acme::MakeMoneyAtHome::VERSION = '1.001001';
3 1     1   15136 use strict; use warnings;
  1     1   2  
  1         34  
  1         3  
  1         1  
  1         22  
4              
5 1     1   4 use Exporter 'import';
  1         5  
  1         262  
6             our @EXPORT = 'make_money_at_home';
7              
8             our @Subject = (
9             "roommate",
10             "cousin",
11             "neighbor",
12             "mother",
13             "father",
14             "sensei",
15             "associate",
16             "senator",
17             "friend",
18             "aunt",
19             "employer",
20             "car dealer",
21             "housemaid",
22             "limousine driver",
23             "study partner",
24             "roommate",
25             "half-sister",
26             "step-uncle",
27             "Perl mentor",
28             "third cousin",
29             "mother-in-law",
30             "father-in-law",
31             "tennis partner",
32             "gym spotter",
33             "statistician",
34             "hairdresser",
35             "dungeon master",
36             "priest",
37             "BFF",
38             "sugar daddy",
39             "secret lover",
40             "great grandmother",
41             "retarded parakeet",
42             "chemistry assistant",
43             "meth cook",
44             "crippled dog",
45             "deaf cat",
46             "PHP advisor",
47             "personal trainer",
48             "neighbor",
49             "lacrosse teammate",
50             "distant Russian relative",
51             "personal cheerleader",
52             "autistic goldfish",
53             "dishwasher",
54             );
55              
56             our @Activity = (
57             "photoshopping dicks",
58             "browsing 4chan",
59             "posting memes",
60             "mining scamcoins",
61             "browsing CPAN",
62             "avoiding honest work",
63             "being a fucktard on Tumblr",
64             "smoking weed",
65             "scamming people",
66             "writing to Nigerian princes",
67             "collecting reddit karma",
68             "mocking celebrities",
69             "playing Farm Birds on MyFace+",
70             "IRCing",
71             "answering fetish surveys",
72             );
73              
74              
75             sub make_money_at_home {
76 1     1 0 49 my $activity = $Activity[rand @Activity];
77              
78 1         3 my @people;
79 1         2 do {
80 3         8 my $new_subj = $Subject[rand @Subject];
81 3 50       14 push @people, $new_subj unless grep {; $_ eq $new_subj } @people
  3         13  
82             } until @people == 3;
83              
84 1         5 my $unemploy = (int rand 36) + 4;
85 1         4 my $hourly = (int rand 60) + 40;
86 1         2 my $monthly = (int rand 10_000) + 10_000;
87              
88 1 50       11 my @gender = int rand 2 ? ('He', 'his') : ('She', 'her') ;
89              
90 1         13 "My $people[0]'s $people[1]'s $people[2] makes \$$hourly an hour on the "
91             ."computer. $gender[0] has been without work for $unemploy months but last "
92             ."month $gender[1] pay was \$$monthly from just $activity "
93             ."a few hours per day."
94             }
95              
96             1;
97              
98              
99             =pod
100              
101             =head1 NAME
102              
103             Acme::MakeMoneyAtHome - I made 17047 dollars just posting Acme dists to CPAN
104              
105             =head1 SYNOPSIS
106              
107             use Acme::MakeMoneyAtHome;
108             print make_money_at_home();
109              
110             =head1 DESCRIPTION
111              
112             Exports the function B, which can tell you how
113             much money your father's gym spotter's autistic goldfish made last month just
114             browsing 4chan a few hours per day.
115              
116             =head1 CONTRIBUTORS
117              
118             Perl-ified and maintained by Jon Portnoy
119              
120             This Perl implementation is based on JavaScript written by B, whose
121             real name I'll put here if he ever trusts me enough to tell me.
122              
123             =head1 LICENSE
124              
125             Licensed under the same terms as Perl.
126              
127             =cut