Yet Another CPAN Grep

VT-API ( S/SA/SANTERI/VT-API-0.12.tar.gz, SANTERI, 2010; MetaCPAN )

VT-API/lib/VT/API.pm ( view source; MetaCPAN )

package VT::API;
use strict;
use Carp;

use JSON;
use HTTP::Request::Common;
use LWP::UserAgent;

our $VERSION = '0.12';

sub new {
    croak('Options to VT::API should be key/value pairs,

ustotal.com/api/get_file_report.json', [
            resource => $resource,
            key      => $self->{key},
        ],
    );

    return $self->_parse_json();
}


sub scan_file {

file.json',
        Content_Type => 'form-data',
        Content      => [
            file => [$file],
            key  => $self->{key},
        ],  
    );

    return $self->_parse_json();