]>
iEval git - webservice-tdwtf.git/blob - lib/WebService/TDWTF.pm
1 package WebService
::TDWTF
;
6 use parent qw
/Exporter/;
10 use JSON
::MaybeXS qw
/decode_json/;
11 use Scalar
::Util qw
/looks_like_number/;
12 use WebService
::TDWTF
::Article
;
14 my @subs = qw
/article list_recent list_series list_author/;
15 our @EXPORT = map { "tdwtf_$_" } @subs;
16 our @EXPORT_OK = (@EXPORT, @subs);
17 our %EXPORT_TAGS = (all
=> [@EXPORT_OK]);
18 our $VERSION = '0.002';
19 our $AGENT = "WebService-TDWTF/$VERSION";
20 our $BASE_URL = 'http://thedailywtf.com/api';
22 sub _ht
{ HTTP
::Tiny
->new(agent
=> $AGENT) }
28 my $response = $ht->get($url);
29 croak
$response->{reason
} unless $response->{success
};
30 $response = decode_json
$response->{content
};
31 croak
$response->{Status
} if ref $response eq 'HASH' && !exists $response->{BodyHtml
};
39 return map { _objectify
($_) } @
$response if ref $response eq 'ARRAY';
40 WebService
::TDWTF
::Article
->new($response)
44 my ($id_or_slug, $only_body_and_html) = @_;
45 my $url = "$BASE_URL/articles/";
46 $url .= @_ == 0 ?
'random' : looks_like_number
$id_or_slug ?
"/id/$id_or_slug" : "/slug/$id_or_slug";
47 $url .= '/true' if $only_body_and_html;
48 _objectify _query
$url
52 my $url = join '/', $BASE_URL, @_;
53 _objectify _query
$url
56 sub list_recent
{ my $url = @_ == 2 ?
'articles' : 'articles/recent'; _list
$url, @_ }
57 sub list_series
{ _list
'series', @_ }
58 sub list_author
{ _list
'author', @_ }
61 *tdwtf_article
= \
&article
;
62 *tdwtf_list_recent
= \
&list_recent
;
63 *tdwtf_list_series
= \
&list_series
;
64 *tdwtf_list_author
= \
&list_author
;
74 WebService::TDWTF - retrieve articles from thedailywtf.com
78 use WebService::TDWTF;
79 my $random_article = tdwtf_article;
80 say $random_article->Title;
81 say $random_article->Body;
83 my $x = tdwtf_article 8301;
84 say $x->Title; # Your Recommended Virus
85 my $y = tdwtf_article 'your-recommended-virus'; # $x and $y are equivalent
87 my @recent = tdwtf_list_recent;
88 say scalar @recent; # 8
89 @recent = tdwtf_list_recent 10;
90 say scalar @recent; # 10
92 my @dec15 = tdwtf_list_recent 2015, 12;
93 say $dec15[0]->Title; # Best of 2015: The A(nti)-Team
94 say $dec15[0]->Body; # (this makes an API call, see NOTES)
95 say $dec15[0]->Body; # (this doesn't make an API call)
97 my @erik = tdwtf_list_author 'erik-gern'; # (most recent 8 articles by Erik Gern)
98 my @sod = tdwtf_list_series 'code-sod', 5; # (most recent 5 CodeSOD articles)
100 # All Error'd articles published in January 2014
101 my @jan14_errord = tdwtf_list_series 'errord', 2014, 1;
105 WebService::TDWTF is an interface to the API of L<http://thedailywtf.com>.
106 Quoting the website's sidebar:
108 Founded in 2004 by Alex Papadimoulis, The Daily WTF is your
109 how-not-to guide for developing software. We recount tales of
110 disastrous development, from project management gone spectacularly
111 bad to inexplicable coding choices.
113 This module exports the following functions:
117 =item B<tdwtf_article>()
119 =item B<tdwtf_article>(I<$id_or_slug>)
123 =item B<article>(I<$id_or_slug>)
125 With an argument, returns a L<WebService::TDWTF> object representing
126 the article with the given ID or slug.
128 With no arguments, returns a L<WebService::TDWTF> object representing
131 =item B<tdwtf_list_recent>()
133 =item B<tdwtf_list_recent>(I<$count>)
135 =item B<tdwtf_list_recent>(I<$year>, I<$month>)
137 =item B<list_recent>()
139 =item B<list_recent>(I<$count>)
141 =item B<list_recent>(I<$year>, I<$month>)
143 With no arguments, returns the most recent 8 articles.
145 With one argument, returns the most recent I<$count> articles.
146 I<$count> is at most 100.
148 With two arguments, returns all articles published in the given month
149 of the given year. I<$month> is an integer between 1 and 12.
151 =item B<tdwtf_list_series>(I<$slug>)
153 =item B<tdwtf_list_series>(I<$slug>, I<$count>)
155 =item B<tdwtf_list_series>(I<$slug>, I<$year>, I<$month>)
157 =item B<list_series>(I<$slug>)
159 =item B<list_series>(I<$slug>, I<$count>)
161 =item B<list_series>(I<$slug>, I<$year>, I<$month>)
163 With no arguments, returns the most recent 8 articles in the given
166 With one argument, returns the most recent I<$count> articles in the
167 given series. I<$count> is at most 100.
169 With two arguments, returns all articles in the given series published
170 in the given month of the given year. I<$month> is an integer between
173 =item B<tdwtf_list_author>(I<$slug>)
175 =item B<tdwtf_list_author>(I<$slug>, I<$count>)
177 =item B<tdwtf_list_author>(I<$slug>, I<$year>, I<$month>)
179 =item B<list_author>(I<$slug>)
181 =item B<list_author>(I<$slug>, I<$count>)
183 =item B<list_author>(I<$slug>, I<$year>, I<$month>)
185 With no arguments, returns the most recent 8 articles by the given
188 With one argument, returns the most recent I<$count> articles by the
189 given author. I<$count> is at most 100.
191 With two arguments, returns all articles by the given author published
192 in the given month of the given year. I<$month> is an integer between
199 All functions are exported of the name B<tdwtf_foo> are exported by
200 default. The unprefixed variants can be exported on request.
202 The B<tdwtf_list_*> functions return a list of incomplete
203 L<WebService::TDWTF::Article> objects. These objects contain all of
204 the fields of a normal object, except for BodyHtml and FooterAdHtml.
205 For these objects, the B<Body> mehod of L<WebService::TDWTF::Article>
206 retrieves the BodyHtml and FooterAdHtml fields from the API and saves
207 them into the object.
209 All B<tdwtf_list_*> functions return articles in reverse chronological
210 order. That is, the first element of the list is the most recent article.
214 L<http://thedailywtf.com/>
216 L<https://github.com/tdwtf/WtfWebApp/blob/master/Docs/API.md>
220 Marius Gavrilescu, E<lt>marius@ieval.roE<gt>
222 =head1 COPYRIGHT AND LICENSE
224 Copyright (C) 2016 by Marius Gavrilescu
226 This library is free software; you can redistribute it and/or modify
227 it under the same terms as Perl itself, either Perl version 5.20.2 or,
228 at your option, any later version of Perl 5 you may have available.
This page took 0.063432 seconds and 5 git commands to generate.