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