File Coverage

blib/lib/App/cloudconvert.pm

Criterion	Covered	Total	%
statement	14	34	41.1
branch	0	12	0.0
condition			n/a
subroutine	5	6	83.3
pod	0	2	0.0
total	19	54	35.1

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(
        timeout => $self->{wait},
        $self->{agent} ? (agent => $self->{agent}) : (),
    ); # TODO: check SSL ?

    my %params = (
        inputformat => $self->{from},
        outputformat => $self->{to},
        apikey => $self->{apikey},
        input => "upload",
        download => "inline",
        file => [ $inputfile ]
    );

    if ($self->{dry}) {
        foreach (keys %params) {
            print "$_: ".(ref $params{$_} ? $params{$_}->[0] : $params{$_}) . "\n"
        }
        print "inputfile: $inputfile\n";
        print "outputfile: $outputfile\n";
        return 0;
    }

    my $response = $ua->request(POST $self->{url},
        Content_Type => 'multipart/form-data',
        Content => \%params
    );

    if ($response->code == '303') {
        $response = $ua->mirror( $response->header('location'), $outputfile );
    } else {
        my $error = "conversion failed";
        if (!$response->is_success) {
            if ($response->header('content-type') eq 'application/json') {
                my $content = from_json($response->decoded_content);
                $error = $content->{error};
            }
        }
        say STDERR $response->code, ": ", $error;
        return 1;
    }

    return 0;
}

1;
__END__