App-cloudconvert

 view release on metacpan or  search on metacpan

META.json  view on Meta::CPAN

      },
      "develop" : {
         "requires" : {
            "Dist::Milla" : "v1.0.8",
            "Test::Pod" : "1.41"
         }
      },
      "runtime" : {
         "requires" : {
            "Getopt::Long" : "0",
            "HTTP::Request::Common" : "0",
            "JSON::PP" : "0",
            "LWP" : "0",
            "Pod::Usage" : "0",
            "perl" : "5.008005"
         }
      },
      "test" : {
         "requires" : {
            "Test::More" : "0.96"
         }

META.yml  view on Meta::CPAN

no_index:
  directory:
    - t
    - xt
    - inc
    - share
    - eg
    - examples
requires:
  Getopt::Long: 0
  HTTP::Request::Common: 0
  JSON::PP: 0
  LWP: 0
  Pod::Usage: 0
  perl: 5.008005
resources:
  bugtracker: https://github.com/nichtich/App-cloudconvert/issues
  homepage: https://github.com/nichtich/App-cloudconvert
  repository: https://github.com/nichtich/App-cloudconvert.git
version: 0.01
x_contributors:

cpanfile  view on Meta::CPAN

requires 'perl', '5.008005'; # not tested
requires 'Pod::Usage';
requires 'Getopt::Long';

requires 'JSON::PP';
requires 'LWP';
requires 'HTTP::Request::Common';

on test => sub {
    requires 'Test::More', '0.96';
};

lib/App/cloudconvert.pm  view on Meta::CPAN

package App::cloudconvert;
use strict;

use 5.008_005;
our $VERSION = '0.01';

use LWP;
use HTTP::Request::Common qw(POST);

sub new {
    my ($class, %config) = @_;
    bless \%config, $class;
}

sub convert {
    my ($self, $inputfile, $outputfile) = @_;

    my $ua = LWP::UserAgent->new(