view release on metacpan or  search on metacpan

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

    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";