File Coverage

blib/lib/WebService/FOAAS.pm
Criterion Covered Total %
statement 119 279 42.6
branch 7 170 4.1
condition 2 246 0.8
subroutine 92 172 53.4
pod 82 83 98.8
total 302 950 31.7


line stmt bran cond sub pod time code
1             package WebService::FOAAS;
2              
3             =encoding utf-8
4              
5             =head1 NAME
6              
7             WebService::FOAAS - API client for https://foaas.com
8              
9             =head1 SYNOPSIS
10              
11             use WebService::FOAAS;
12             print foaas_too 'MGV'; # Thanks, fuck you too. - MGV
13             print foaas_cool 'MGV', {shoutcloud => 1}; # COOL STORY, BRO. - MGV
14              
15             =head1 DESCRIPTION
16              
17             FOAAS (Fuck Off As A Service) provides a modern, RESTful, scalable
18             solution to the common problem of telling people to fuck off.
19              
20             C is an API client for FOAAS. It provides a series
21             of methods for getting data from the service.
22              
23             The methods are listed below, and documented on the FOAAS webpage.
24             Each method comes under two names, C and C.
25             They are identical in function, but only C is exported by
26             default while C is only exported on request.
27              
28             =cut
29              
30 1     1   84938 use 5.014000;
  1         3  
31 1     1   5 use strict;
  1         2  
  1         32  
32 1     1   6 use warnings;
  1         1  
  1         31  
33              
34 1     1   677 use HTTP::Tiny;
  1         39615  
  1         35  
35 1     1   417 use URI::Escape;
  1         1169  
  1         63  
36              
37 1     1   413 use parent qw/Exporter/;
  1         259  
  1         5  
38              
39             our $VERSION = '0.002';
40             our $BASE = 'https://foaas.com';
41              
42             our $ht = HTTP::Tiny->new;
43              
44             sub request {
45 2     2 0 8 my (@args) = @_;
46 2         5 my @query;
47 2 100       12 if (ref $args[$#args] eq 'HASH') {
48 1         5 my $query = pop @args;
49 1         5 for (keys %$query) {
50 1         9 my $key = uri_escape_utf8 $_;
51 1         54 my $val = uri_escape_utf8 $query->{$_};
52 1         19 push @query, "$key=$val";
53             }
54             }
55              
56 2 100       11 my $query = @query ? '?'.(join '&', @query) : '';
57 2         10 my $path = join '/', '', @args;
58 2         6 my $final_url = $BASE.$path.$query;
59              
60 2         47 my $result = $ht->get($final_url, {headers => {Accept => 'text/plain'}});
61 2 50       841776 die $result->{reason} unless $result->{success};
62             $result->{content}
63 2         32 }
64              
65             ### Start of code generated by WebService::FOAAS::Codegen->run
66              
67             =head1 AVAILABLE METHODS
68              
69             =over
70              
71             =item foaas_anyway $company, $from
72              
73             =cut
74              
75             sub foaas_anyway {
76 0 0 0 0 1 0 die "Expected 2 arguments" unless @_ == 2 || @_ == 3;
77 0         0 request 'anyway', @_;
78             }
79              
80 1     1   360 BEGIN { *anyway = \&foaas_anyway }
81              
82             =item foaas_asshole $from
83              
84             =cut
85              
86             sub foaas_asshole {
87 0 0 0 0 1 0 die "Expected 1 arguments" unless @_ == 1 || @_ == 2;
88 0         0 request 'asshole', @_;
89             }
90              
91 1     1   66 BEGIN { *asshole = \&foaas_asshole }
92              
93             =item foaas_awesome $from
94              
95             =cut
96              
97             sub foaas_awesome {
98 0 0 0 0 1 0 die "Expected 1 arguments" unless @_ == 1 || @_ == 2;
99 0         0 request 'awesome', @_;
100             }
101              
102 1     1   63 BEGIN { *awesome = \&foaas_awesome }
103              
104             =item foaas_back $name, $from
105              
106             =cut
107              
108             sub foaas_back {
109 0 0 0 0 1 0 die "Expected 2 arguments" unless @_ == 2 || @_ == 3;
110 0         0 request 'back', @_;
111             }
112              
113 1     1   76 BEGIN { *back = \&foaas_back }
114              
115             =item foaas_bag $from
116              
117             =cut
118              
119             sub foaas_bag {
120 0 0 0 0 1 0 die "Expected 1 arguments" unless @_ == 1 || @_ == 2;
121 0         0 request 'bag', @_;
122             }
123              
124 1     1   53 BEGIN { *bag = \&foaas_bag }
125              
126             =item foaas_ballmer $name, $company, $from
127              
128             =cut
129              
130             sub foaas_ballmer {
131 0 0 0 0 1 0 die "Expected 3 arguments" unless @_ == 3 || @_ == 4;
132 0         0 request 'ballmer', @_;
133             }
134              
135 1     1   88 BEGIN { *ballmer = \&foaas_ballmer }
136              
137             =item foaas_bday $name, $from
138              
139             =cut
140              
141             sub foaas_bday {
142 0 0 0 0 1 0 die "Expected 2 arguments" unless @_ == 2 || @_ == 3;
143 0         0 request 'bday', @_;
144             }
145              
146 1     1   66 BEGIN { *bday = \&foaas_bday }
147              
148             =item foaas_because $from
149              
150             =cut
151              
152             sub foaas_because {
153 0 0 0 0 1 0 die "Expected 1 arguments" unless @_ == 1 || @_ == 2;
154 0         0 request 'because', @_;
155             }
156              
157 1     1   67 BEGIN { *because = \&foaas_because }
158              
159             =item foaas_blackadder $name, $from
160              
161             =cut
162              
163             sub foaas_blackadder {
164 0 0 0 0 1 0 die "Expected 2 arguments" unless @_ == 2 || @_ == 3;
165 0         0 request 'blackadder', @_;
166             }
167              
168 1     1   75 BEGIN { *blackadder = \&foaas_blackadder }
169              
170             =item foaas_bm $name, $from
171              
172             =cut
173              
174             sub foaas_bm {
175 0 0 0 0 1 0 die "Expected 2 arguments" unless @_ == 2 || @_ == 3;
176 0         0 request 'bm', @_;
177             }
178              
179 1     1   69 BEGIN { *bm = \&foaas_bm }
180              
181             =item foaas_bucket $from
182              
183             =cut
184              
185             sub foaas_bucket {
186 0 0 0 0 1 0 die "Expected 1 arguments" unless @_ == 1 || @_ == 2;
187 0         0 request 'bucket', @_;
188             }
189              
190 1     1   53 BEGIN { *bucket = \&foaas_bucket }
191              
192             =item foaas_bus $name, $from
193              
194             =cut
195              
196             sub foaas_bus {
197 0 0 0 0 1 0 die "Expected 2 arguments" unless @_ == 2 || @_ == 3;
198 0         0 request 'bus', @_;
199             }
200              
201 1     1   60 BEGIN { *bus = \&foaas_bus }
202              
203             =item foaas_bye $from
204              
205             =cut
206              
207             sub foaas_bye {
208 0 0 0 0 1 0 die "Expected 1 arguments" unless @_ == 1 || @_ == 2;
209 0         0 request 'bye', @_;
210             }
211              
212 1     1   69 BEGIN { *bye = \&foaas_bye }
213              
214             =item foaas_caniuse $tool, $from
215              
216             =cut
217              
218             sub foaas_caniuse {
219 0 0 0 0 1 0 die "Expected 2 arguments" unless @_ == 2 || @_ == 3;
220 0         0 request 'caniuse', @_;
221             }
222              
223 1     1   53 BEGIN { *caniuse = \&foaas_caniuse }
224              
225             =item foaas_chainsaw $name, $from
226              
227             =cut
228              
229             sub foaas_chainsaw {
230 0 0 0 0 1 0 die "Expected 2 arguments" unless @_ == 2 || @_ == 3;
231 0         0 request 'chainsaw', @_;
232             }
233              
234 1     1   59 BEGIN { *chainsaw = \&foaas_chainsaw }
235              
236             =item foaas_cocksplat $name, $from
237              
238             =cut
239              
240             sub foaas_cocksplat {
241 0 0 0 0 1 0 die "Expected 2 arguments" unless @_ == 2 || @_ == 3;
242 0         0 request 'cocksplat', @_;
243             }
244              
245 1     1   56 BEGIN { *cocksplat = \&foaas_cocksplat }
246              
247             =item foaas_cool $from
248              
249             =cut
250              
251             sub foaas_cool {
252 1 50 33 1 1 82 die "Expected 1 arguments" unless @_ == 1 || @_ == 2;
253 1         4 request 'cool', @_;
254             }
255              
256 1     1   76 BEGIN { *cool = \&foaas_cool }
257              
258             =item foaas_cup $from
259              
260             =cut
261              
262             sub foaas_cup {
263 0 0 0 0 1 0 die "Expected 1 arguments" unless @_ == 1 || @_ == 2;
264 0         0 request 'cup', @_;
265             }
266              
267 1     1   52 BEGIN { *cup = \&foaas_cup }
268              
269             =item foaas_dalton $name, $from
270              
271             =cut
272              
273             sub foaas_dalton {
274 0 0 0 0 1 0 die "Expected 2 arguments" unless @_ == 2 || @_ == 3;
275 0         0 request 'dalton', @_;
276             }
277              
278 1     1   58 BEGIN { *dalton = \&foaas_dalton }
279              
280             =item foaas_deraadt $name, $from
281              
282             =cut
283              
284             sub foaas_deraadt {
285 0 0 0 0 1 0 die "Expected 2 arguments" unless @_ == 2 || @_ == 3;
286 0         0 request 'deraadt', @_;
287             }
288              
289 1     1   51 BEGIN { *deraadt = \&foaas_deraadt }
290              
291             =item foaas_diabetes $from
292              
293             =cut
294              
295             sub foaas_diabetes {
296 0 0 0 0 1 0 die "Expected 1 arguments" unless @_ == 1 || @_ == 2;
297 0         0 request 'diabetes', @_;
298             }
299              
300 1     1   63 BEGIN { *diabetes = \&foaas_diabetes }
301              
302             =item foaas_donut $name, $from
303              
304             =cut
305              
306             sub foaas_donut {
307 0 0 0 0 1 0 die "Expected 2 arguments" unless @_ == 2 || @_ == 3;
308 0         0 request 'donut', @_;
309             }
310              
311 1     1   52 BEGIN { *donut = \&foaas_donut }
312              
313             =item foaas_dosomething $do, $something, $from
314              
315             =cut
316              
317             sub foaas_dosomething {
318 1 50 33 1 1 902 die "Expected 3 arguments" unless @_ == 3 || @_ == 4;
319 1         6 request 'dosomething', @_;
320             }
321              
322 1     1   58 BEGIN { *dosomething = \&foaas_dosomething }
323              
324             =item foaas_equity $name, $from
325              
326             =cut
327              
328             sub foaas_equity {
329 0 0 0 0 1   die "Expected 2 arguments" unless @_ == 2 || @_ == 3;
330 0           request 'equity', @_;
331             }
332              
333 1     1   50 BEGIN { *equity = \&foaas_equity }
334              
335             =item foaas_everyone $from
336              
337             =cut
338              
339             sub foaas_everyone {
340 0 0 0 0 1   die "Expected 1 arguments" unless @_ == 1 || @_ == 2;
341 0           request 'everyone', @_;
342             }
343              
344 1     1   58 BEGIN { *everyone = \&foaas_everyone }
345              
346             =item foaas_everything $from
347              
348             =cut
349              
350             sub foaas_everything {
351 0 0 0 0 1   die "Expected 1 arguments" unless @_ == 1 || @_ == 2;
352 0           request 'everything', @_;
353             }
354              
355 1     1   67 BEGIN { *everything = \&foaas_everything }
356              
357             =item foaas_family $from
358              
359             =cut
360              
361             sub foaas_family {
362 0 0 0 0 1   die "Expected 1 arguments" unless @_ == 1 || @_ == 2;
363 0           request 'family', @_;
364             }
365              
366 1     1   66 BEGIN { *family = \&foaas_family }
367              
368             =item foaas_fascinating $from
369              
370             =cut
371              
372             sub foaas_fascinating {
373 0 0 0 0 1   die "Expected 1 arguments" unless @_ == 1 || @_ == 2;
374 0           request 'fascinating', @_;
375             }
376              
377 1     1   66 BEGIN { *fascinating = \&foaas_fascinating }
378              
379             =item foaas_field $name, $from, $reference
380              
381             =cut
382              
383             sub foaas_field {
384 0 0 0 0 1   die "Expected 3 arguments" unless @_ == 3 || @_ == 4;
385 0           request 'field', @_;
386             }
387              
388 1     1   58 BEGIN { *field = \&foaas_field }
389              
390             =item foaas_flying $from
391              
392             =cut
393              
394             sub foaas_flying {
395 0 0 0 0 1   die "Expected 1 arguments" unless @_ == 1 || @_ == 2;
396 0           request 'flying', @_;
397             }
398              
399 1     1   50 BEGIN { *flying = \&foaas_flying }
400              
401             =item foaas_fyyff $from
402              
403             =cut
404              
405             sub foaas_fyyff {
406 0 0 0 0 1   die "Expected 1 arguments" unless @_ == 1 || @_ == 2;
407 0           request 'fyyff', @_;
408             }
409              
410 1     1   57 BEGIN { *fyyff = \&foaas_fyyff }
411              
412             =item foaas_gfy $name, $from
413              
414             =cut
415              
416             sub foaas_gfy {
417 0 0 0 0 1   die "Expected 2 arguments" unless @_ == 2 || @_ == 3;
418 0           request 'gfy', @_;
419             }
420              
421 1     1   59 BEGIN { *gfy = \&foaas_gfy }
422              
423             =item foaas_give $from
424              
425             =cut
426              
427             sub foaas_give {
428 0 0 0 0 1   die "Expected 1 arguments" unless @_ == 1 || @_ == 2;
429 0           request 'give', @_;
430             }
431              
432 1     1   52 BEGIN { *give = \&foaas_give }
433              
434             =item foaas_greed $noun, $from
435              
436             =cut
437              
438             sub foaas_greed {
439 0 0 0 0 1   die "Expected 2 arguments" unless @_ == 2 || @_ == 3;
440 0           request 'greed', @_;
441             }
442              
443 1     1   52 BEGIN { *greed = \&foaas_greed }
444              
445             =item foaas_horse $from
446              
447             =cut
448              
449             sub foaas_horse {
450 0 0 0 0 1   die "Expected 1 arguments" unless @_ == 1 || @_ == 2;
451 0           request 'horse', @_;
452             }
453              
454 1     1   72 BEGIN { *horse = \&foaas_horse }
455              
456             =item foaas_immensity $from
457              
458             =cut
459              
460             sub foaas_immensity {
461 0 0 0 0 1   die "Expected 1 arguments" unless @_ == 1 || @_ == 2;
462 0           request 'immensity', @_;
463             }
464              
465 1     1   51 BEGIN { *immensity = \&foaas_immensity }
466              
467             =item foaas_ing $name, $from
468              
469             =cut
470              
471             sub foaas_ing {
472 0 0 0 0 1   die "Expected 2 arguments" unless @_ == 2 || @_ == 3;
473 0           request 'ing', @_;
474             }
475              
476 1     1   68 BEGIN { *ing = \&foaas_ing }
477              
478             =item foaas_keep $name, $from
479              
480             =cut
481              
482             sub foaas_keep {
483 0 0 0 0 1   die "Expected 2 arguments" unless @_ == 2 || @_ == 3;
484 0           request 'keep', @_;
485             }
486              
487 1     1   121 BEGIN { *keep = \&foaas_keep }
488              
489             =item foaas_keepcalm $reaction, $from
490              
491             =cut
492              
493             sub foaas_keepcalm {
494 0 0 0 0 1   die "Expected 2 arguments" unless @_ == 2 || @_ == 3;
495 0           request 'keepcalm', @_;
496             }
497              
498 1     1   57 BEGIN { *keepcalm = \&foaas_keepcalm }
499              
500             =item foaas_king $name, $from
501              
502             =cut
503              
504             sub foaas_king {
505 0 0 0 0 1   die "Expected 2 arguments" unless @_ == 2 || @_ == 3;
506 0           request 'king', @_;
507             }
508              
509 1     1   50 BEGIN { *king = \&foaas_king }
510              
511             =item foaas_life $from
512              
513             =cut
514              
515             sub foaas_life {
516 0 0 0 0 1   die "Expected 1 arguments" unless @_ == 1 || @_ == 2;
517 0           request 'life', @_;
518             }
519              
520 1     1   59 BEGIN { *life = \&foaas_life }
521              
522             =item foaas_linus $name, $from
523              
524             =cut
525              
526             sub foaas_linus {
527 0 0 0 0 1   die "Expected 2 arguments" unless @_ == 2 || @_ == 3;
528 0           request 'linus', @_;
529             }
530              
531 1     1   51 BEGIN { *linus = \&foaas_linus }
532              
533             =item foaas_look $name, $from
534              
535             =cut
536              
537             sub foaas_look {
538 0 0 0 0 1   die "Expected 2 arguments" unless @_ == 2 || @_ == 3;
539 0           request 'look', @_;
540             }
541              
542 1     1   64 BEGIN { *look = \&foaas_look }
543              
544             =item foaas_looking $from
545              
546             =cut
547              
548             sub foaas_looking {
549 0 0 0 0 1   die "Expected 1 arguments" unless @_ == 1 || @_ == 2;
550 0           request 'looking', @_;
551             }
552              
553 1     1   54 BEGIN { *looking = \&foaas_looking }
554              
555             =item foaas_madison $name, $from
556              
557             =cut
558              
559             sub foaas_madison {
560 0 0 0 0 1   die "Expected 2 arguments" unless @_ == 2 || @_ == 3;
561 0           request 'madison', @_;
562             }
563              
564 1     1   57 BEGIN { *madison = \&foaas_madison }
565              
566             =item foaas_maybe $from
567              
568             =cut
569              
570             sub foaas_maybe {
571 0 0 0 0 1   die "Expected 1 arguments" unless @_ == 1 || @_ == 2;
572 0           request 'maybe', @_;
573             }
574              
575 1     1   53 BEGIN { *maybe = \&foaas_maybe }
576              
577             =item foaas_me $from
578              
579             =cut
580              
581             sub foaas_me {
582 0 0 0 0 1   die "Expected 1 arguments" unless @_ == 1 || @_ == 2;
583 0           request 'me', @_;
584             }
585              
586 1     1   55 BEGIN { *me = \&foaas_me }
587              
588             =item foaas_mornin $from
589              
590             =cut
591              
592             sub foaas_mornin {
593 0 0 0 0 1   die "Expected 1 arguments" unless @_ == 1 || @_ == 2;
594 0           request 'mornin', @_;
595             }
596              
597 1     1   59 BEGIN { *mornin = \&foaas_mornin }
598              
599             =item foaas_no $from
600              
601             =cut
602              
603             sub foaas_no {
604 0 0 0 0 1   die "Expected 1 arguments" unless @_ == 1 || @_ == 2;
605 0           request 'no', @_;
606             }
607              
608 1     1   57 BEGIN { *no = \&foaas_no }
609              
610             =item foaas_nugget $name, $from
611              
612             =cut
613              
614             sub foaas_nugget {
615 0 0 0 0 1   die "Expected 2 arguments" unless @_ == 2 || @_ == 3;
616 0           request 'nugget', @_;
617             }
618              
619 1     1   52 BEGIN { *nugget = \&foaas_nugget }
620              
621             =item foaas_off $name, $from
622              
623             =cut
624              
625             sub foaas_off {
626 0 0 0 0 1   die "Expected 2 arguments" unless @_ == 2 || @_ == 3;
627 0           request 'off', @_;
628             }
629              
630 1     1   56 BEGIN { *off = \&foaas_off }
631              
632             =item foaas_off_with $behavior, $from
633              
634             =cut
635              
636             sub foaas_off_with {
637 0 0 0 0 1   die "Expected 2 arguments" unless @_ == 2 || @_ == 3;
638 0           request 'off_with', @_;
639             }
640              
641 1     1   66 BEGIN { *off_with = \&foaas_off_with }
642              
643             =item foaas_outside $name, $from
644              
645             =cut
646              
647             sub foaas_outside {
648 0 0 0 0 1   die "Expected 2 arguments" unless @_ == 2 || @_ == 3;
649 0           request 'outside', @_;
650             }
651              
652 1     1   53 BEGIN { *outside = \&foaas_outside }
653              
654             =item foaas_particular $thing, $from
655              
656             =cut
657              
658             sub foaas_particular {
659 0 0 0 0 1   die "Expected 2 arguments" unless @_ == 2 || @_ == 3;
660 0           request 'particular', @_;
661             }
662              
663 1     1   61 BEGIN { *particular = \&foaas_particular }
664              
665             =item foaas_pink $from
666              
667             =cut
668              
669             sub foaas_pink {
670 0 0 0 0 1   die "Expected 1 arguments" unless @_ == 1 || @_ == 2;
671 0           request 'pink', @_;
672             }
673              
674 1     1   62 BEGIN { *pink = \&foaas_pink }
675              
676             =item foaas_problem $name, $from
677              
678             =cut
679              
680             sub foaas_problem {
681 0 0 0 0 1   die "Expected 2 arguments" unless @_ == 2 || @_ == 3;
682 0           request 'problem', @_;
683             }
684              
685 1     1   53 BEGIN { *problem = \&foaas_problem }
686              
687             =item foaas_programmer $from
688              
689             =cut
690              
691             sub foaas_programmer {
692 0 0 0 0 1   die "Expected 1 arguments" unless @_ == 1 || @_ == 2;
693 0           request 'programmer', @_;
694             }
695              
696 1     1   58 BEGIN { *programmer = \&foaas_programmer }
697              
698             =item foaas_pulp $language, $from
699              
700             =cut
701              
702             sub foaas_pulp {
703 0 0 0 0 1   die "Expected 2 arguments" unless @_ == 2 || @_ == 3;
704 0           request 'pulp', @_;
705             }
706              
707 1     1   50 BEGIN { *pulp = \&foaas_pulp }
708              
709             =item foaas_question $from
710              
711             =cut
712              
713             sub foaas_question {
714 0 0 0 0 1   die "Expected 1 arguments" unless @_ == 1 || @_ == 2;
715 0           request 'question', @_;
716             }
717              
718 1     1   77 BEGIN { *question = \&foaas_question }
719              
720             =item foaas_retard $from
721              
722             =cut
723              
724             sub foaas_retard {
725 0 0 0 0 1   die "Expected 1 arguments" unless @_ == 1 || @_ == 2;
726 0           request 'retard', @_;
727             }
728              
729 1     1   55 BEGIN { *retard = \&foaas_retard }
730              
731             =item foaas_ridiculous $from
732              
733             =cut
734              
735             sub foaas_ridiculous {
736 0 0 0 0 1   die "Expected 1 arguments" unless @_ == 1 || @_ == 2;
737 0           request 'ridiculous', @_;
738             }
739              
740 1     1   67 BEGIN { *ridiculous = \&foaas_ridiculous }
741              
742             =item foaas_rtfm $from
743              
744             =cut
745              
746             sub foaas_rtfm {
747 0 0 0 0 1   die "Expected 1 arguments" unless @_ == 1 || @_ == 2;
748 0           request 'rtfm', @_;
749             }
750              
751 1     1   51 BEGIN { *rtfm = \&foaas_rtfm }
752              
753             =item foaas_sake $from
754              
755             =cut
756              
757             sub foaas_sake {
758 0 0 0 0 1   die "Expected 1 arguments" unless @_ == 1 || @_ == 2;
759 0           request 'sake', @_;
760             }
761              
762 1     1   58 BEGIN { *sake = \&foaas_sake }
763              
764             =item foaas_shakespeare $name, $from
765              
766             =cut
767              
768             sub foaas_shakespeare {
769 0 0 0 0 1   die "Expected 2 arguments" unless @_ == 2 || @_ == 3;
770 0           request 'shakespeare', @_;
771             }
772              
773 1     1   59 BEGIN { *shakespeare = \&foaas_shakespeare }
774              
775             =item foaas_shit $from
776              
777             =cut
778              
779             sub foaas_shit {
780 0 0 0 0 1   die "Expected 1 arguments" unless @_ == 1 || @_ == 2;
781 0           request 'shit', @_;
782             }
783              
784 1     1   58 BEGIN { *shit = \&foaas_shit }
785              
786             =item foaas_shutup $name, $from
787              
788             =cut
789              
790             sub foaas_shutup {
791 0 0 0 0 1   die "Expected 2 arguments" unless @_ == 2 || @_ == 3;
792 0           request 'shutup', @_;
793             }
794              
795 1     1   51 BEGIN { *shutup = \&foaas_shutup }
796              
797             =item foaas_single $from
798              
799             =cut
800              
801             sub foaas_single {
802 0 0 0 0 1   die "Expected 1 arguments" unless @_ == 1 || @_ == 2;
803 0           request 'single', @_;
804             }
805              
806 1     1   66 BEGIN { *single = \&foaas_single }
807              
808             =item foaas_thanks $from
809              
810             =cut
811              
812             sub foaas_thanks {
813 0 0 0 0 1   die "Expected 1 arguments" unless @_ == 1 || @_ == 2;
814 0           request 'thanks', @_;
815             }
816              
817 1     1   51 BEGIN { *thanks = \&foaas_thanks }
818              
819             =item foaas_that $from
820              
821             =cut
822              
823             sub foaas_that {
824 0 0 0 0 1   die "Expected 1 arguments" unless @_ == 1 || @_ == 2;
825 0           request 'that', @_;
826             }
827              
828 1     1   56 BEGIN { *that = \&foaas_that }
829              
830             =item foaas_think $name, $from
831              
832             =cut
833              
834             sub foaas_think {
835 0 0 0 0 1   die "Expected 2 arguments" unless @_ == 2 || @_ == 3;
836 0           request 'think', @_;
837             }
838              
839 1     1   58 BEGIN { *think = \&foaas_think }
840              
841             =item foaas_thinking $name, $from
842              
843             =cut
844              
845             sub foaas_thinking {
846 0 0 0 0 1   die "Expected 2 arguments" unless @_ == 2 || @_ == 3;
847 0           request 'thinking', @_;
848             }
849              
850 1     1   56 BEGIN { *thinking = \&foaas_thinking }
851              
852             =item foaas_this $from
853              
854             =cut
855              
856             sub foaas_this {
857 0 0 0 0 1   die "Expected 1 arguments" unless @_ == 1 || @_ == 2;
858 0           request 'this', @_;
859             }
860              
861 1     1   57 BEGIN { *this = \&foaas_this }
862              
863             =item foaas_thumbs $name, $from
864              
865             =cut
866              
867             sub foaas_thumbs {
868 0 0 0 0 1   die "Expected 2 arguments" unless @_ == 2 || @_ == 3;
869 0           request 'thumbs', @_;
870             }
871              
872 1     1   64 BEGIN { *thumbs = \&foaas_thumbs }
873              
874             =item foaas_too $from
875              
876             =cut
877              
878             sub foaas_too {
879 0 0 0 0 1   die "Expected 1 arguments" unless @_ == 1 || @_ == 2;
880 0           request 'too', @_;
881             }
882              
883 1     1   69 BEGIN { *too = \&foaas_too }
884              
885             =item foaas_tucker $from
886              
887             =cut
888              
889             sub foaas_tucker {
890 0 0 0 0 1   die "Expected 1 arguments" unless @_ == 1 || @_ == 2;
891 0           request 'tucker', @_;
892             }
893              
894 1     1   58 BEGIN { *tucker = \&foaas_tucker }
895              
896             =item foaas_version
897              
898             =cut
899              
900             sub foaas_version {
901 0 0 0 0 1   die "Expected 0 arguments" unless @_ == 0 || @_ == 1;
902 0           request 'version', @_;
903             }
904              
905 1     1   77 BEGIN { *version = \&foaas_version }
906              
907             =item foaas_what $from
908              
909             =cut
910              
911             sub foaas_what {
912 0 0 0 0 1   die "Expected 1 arguments" unless @_ == 1 || @_ == 2;
913 0           request 'what', @_;
914             }
915              
916 1     1   53 BEGIN { *what = \&foaas_what }
917              
918             =item foaas_xmas $name, $from
919              
920             =cut
921              
922             sub foaas_xmas {
923 0 0 0 0 1   die "Expected 2 arguments" unless @_ == 2 || @_ == 3;
924 0           request 'xmas', @_;
925             }
926              
927 1     1   58 BEGIN { *xmas = \&foaas_xmas }
928              
929             =item foaas_yoda $name, $from
930              
931             =cut
932              
933             sub foaas_yoda {
934 0 0 0 0 1   die "Expected 2 arguments" unless @_ == 2 || @_ == 3;
935 0           request 'yoda', @_;
936             }
937              
938 1     1   67 BEGIN { *yoda = \&foaas_yoda }
939              
940             =item foaas_you $name, $from
941              
942             =cut
943              
944             sub foaas_you {
945 0 0 0 0 1   die "Expected 2 arguments" unless @_ == 2 || @_ == 3;
946 0           request 'you', @_;
947             }
948              
949 1     1   57 BEGIN { *you = \&foaas_you }
950              
951             =item foaas_zayn $from
952              
953             =cut
954              
955             sub foaas_zayn {
956 0 0 0 0 1   die "Expected 1 arguments" unless @_ == 1 || @_ == 2;
957 0           request 'zayn', @_;
958             }
959              
960 1     1   51 BEGIN { *zayn = \&foaas_zayn }
961              
962             =item foaas_zero $from
963              
964             =cut
965              
966             sub foaas_zero {
967 0 0 0 0 1   die "Expected 1 arguments" unless @_ == 1 || @_ == 2;
968 0           request 'zero', @_;
969             }
970              
971 1     1   166 BEGIN { *zero = \&foaas_zero }
972              
973             BEGIN {
974 1     1   15 our @EXPORT = qw/foaas_anyway foaas_asshole foaas_awesome foaas_back foaas_bag foaas_ballmer foaas_bday foaas_because foaas_blackadder foaas_bm foaas_bucket foaas_bus foaas_bye foaas_caniuse foaas_chainsaw foaas_cocksplat foaas_cool foaas_cup foaas_dalton foaas_deraadt foaas_diabetes foaas_donut foaas_dosomething foaas_equity foaas_everyone foaas_everything foaas_family foaas_fascinating foaas_field foaas_flying foaas_fyyff foaas_gfy foaas_give foaas_greed foaas_horse foaas_immensity foaas_ing foaas_keep foaas_keepcalm foaas_king foaas_life foaas_linus foaas_look foaas_looking foaas_madison foaas_maybe foaas_me foaas_mornin foaas_no foaas_nugget foaas_off foaas_off_with foaas_outside foaas_particular foaas_pink foaas_problem foaas_programmer foaas_pulp foaas_question foaas_retard foaas_ridiculous foaas_rtfm foaas_sake foaas_shakespeare foaas_shit foaas_shutup foaas_single foaas_thanks foaas_that foaas_think foaas_thinking foaas_this foaas_thumbs foaas_too foaas_tucker foaas_version foaas_what foaas_xmas foaas_yoda foaas_you foaas_zayn foaas_zero/;
975 1         54 our @EXPORT_OK = qw/foaas_anyway foaas_asshole foaas_awesome foaas_back foaas_bag foaas_ballmer foaas_bday foaas_because foaas_blackadder foaas_bm foaas_bucket foaas_bus foaas_bye foaas_caniuse foaas_chainsaw foaas_cocksplat foaas_cool foaas_cup foaas_dalton foaas_deraadt foaas_diabetes foaas_donut foaas_dosomething foaas_equity foaas_everyone foaas_everything foaas_family foaas_fascinating foaas_field foaas_flying foaas_fyyff foaas_gfy foaas_give foaas_greed foaas_horse foaas_immensity foaas_ing foaas_keep foaas_keepcalm foaas_king foaas_life foaas_linus foaas_look foaas_looking foaas_madison foaas_maybe foaas_me foaas_mornin foaas_no foaas_nugget foaas_off foaas_off_with foaas_outside foaas_particular foaas_pink foaas_problem foaas_programmer foaas_pulp foaas_question foaas_retard foaas_ridiculous foaas_rtfm foaas_sake foaas_shakespeare foaas_shit foaas_shutup foaas_single foaas_thanks foaas_that foaas_think foaas_thinking foaas_this foaas_thumbs foaas_too foaas_tucker foaas_version foaas_what foaas_xmas foaas_yoda foaas_you foaas_zayn foaas_zero anyway asshole awesome back bag ballmer bday because blackadder bm bucket bus bye caniuse chainsaw cocksplat cool cup dalton deraadt diabetes donut dosomething equity everyone everything family fascinating field flying fyyff gfy give greed horse immensity ing keep keepcalm king life linus look looking madison maybe me mornin no nugget off off_with outside particular pink problem programmer pulp question retard ridiculous rtfm sake shakespeare shit shutup single thanks that think thinking this thumbs too tucker version what xmas yoda you zayn zero/;
976             }
977              
978             =back
979              
980             =cut
981              
982             ### End of code generated by WebService::FOAAS::Codegen->run
983              
984             1;
985             __END__