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