]> iEval git - webservice-tdwtf.git/blob - tdwtf
Add tdwtf_series function for new API call
[webservice-tdwtf.git] / tdwtf
1 #!/usr/bin/perl
2 use v5.14;
3 use warnings;
4
5 use App::TDWTF;
6 use Getopt::Long;
7
8 my %args;
9 GetOptions(
10 recent => \$args{recent},
11 series => \$args{series},
12 author => \$args{author},
13 );
14
15 App::TDWTF::run(\%args, @ARGV);
16
17 __END__
18
19 =encoding utf-8
20
21 =head1 NAME
22
23 tdwtf - CLI interface to thedailywtf.com
24
25 =head1 SYNOPSIS
26
27 tdwtf # prints a random article, as text
28 tdwtf 8339 # prints the article with ID 8339, as text
29 tdwtf --recent # lists the most recent 8 articles
30 tdwtf --recent 10 # lists the most recent 10 articles
31 tdwtf --recent 2015 01 # lists all articles published in January 2015
32 tdwtf --series errord # lists the most recent 8 Error'd articles
33 tdwtf --series errord 10
34 tdwtf --series errord 2015 01
35 tdwtf --author snoofle # lists the most recent 8 articles by snoofle
36 tdwtf --author snoofle 10
37 tdwtf --author snoofle 2015 01
38
39 =head1 DESCRIPTION
40
41 tdwtf is an CLI interface to the API of L<http://thedailywtf.com>.
42 Quoting the website's sidebar:
43
44 Founded in 2004 by Alex Papadimoulis, The Daily WTF is your
45 how-not-to guide for developing software. We recount tales of
46 disastrous development, from project management gone spectacularly
47 bad to inexplicable coding choices.
48
49 See SYNOPSIS for usage examples.
50
51 =head1 SEE ALSO
52
53 L<http://thedailywtf.com/>
54
55 L<WebService::TDWTF>
56
57 =head1 AUTHOR
58
59 Marius Gavrilescu, E<lt>marius@ieval.roE<gt>
60
61 =head1 COPYRIGHT AND LICENSE
62
63 Copyright (C) 2016 by Marius Gavrilescu
64
65 This library is free software; you can redistribute it and/or modify
66 it under the same terms as Perl itself, either Perl version 5.20.2 or,
67 at your option, any later version of Perl 5 you may have available.
68
69
70 =cut
This page took 0.055956 seconds and 5 git commands to generate.