off

   1 #!/usr/bin/perl
   2 use 5.008009;
   3 use strict;
   4 use warnings;
   5
   6 use Getopt::Long qw/GetOptions/;
   7 use WWW::Offliberty qw/off/;
   8
   9 GetOptions ('param=s' => \my %params);
  10 print "$_\n" for off shift, %params;
  11
  12 __END__
  13
  14 =encoding utf-8
  15
  16 =head1 NAME
  17
  18 off - Offliberate this
  19
  20 =head1 SYNOPSIS
  21
  22   off 'http://vimeo.com/whatever'
  23   off --param video_file=1 'http://youtube.com/watch?v=something'
  24   off --param param1=value1 --param param2=value2 link_to_offliberate
  25
  26 =head1 DESCRIPTION
  27
  28 off is a command-line interface to the offliberty.com download
  29 service. It prints a list of download URLs for a given resource (e.g.
  30 a youtube video). You can also send parameters using the C<--param>
  31 argument. See the L<WWW::Offliberty> documentation for more
  32 information about parameters.
  33
  34 =head1 SEE ALSO
  35
  36 L<WWW::Offliberty>, L<http://offliberty.com>
  37
  38 =head1 AUTHOR
  39
  40 Marius Gavrilescu, E<lt>marius@ieval.roE<gt>
  41
  42 =head1 COPYRIGHT AND LICENSE
  43
  44 Copyright (C) 2013-2015 by Marius Gavrilescu
  45
  46 This library is free software; you can redistribute it and/or modify
  47 it under the same terms as Perl itself, either Perl version 5.18.1 or,
  48 at your option, any later version of Perl 5 you may have available.
  49
  50
  51 =cut