File Coverage

blib/lib/Brightcove/MAPI.pm

Criterion	Covered	Total	%
statement	12	37	32.4
branch	0	6	0.0
condition	0	7	0.0
subroutine	4	6	66.6
pod	2	2	100.0
total	18	58	31.0

package Brightcove::MAPI;

# ABSTRACT: Brightcove Media API Wrapper

our $VERSION = '0.1';

use URI;
use JSON;
use Any::Moose;
use LWP::UserAgent;

has read_api_url => (
	is	=> 'rw',
	required=> 1,
	default	=> 'https://api.brightcove.com/services/library',
);

has write_api_url => (
	is	=> 'rw',
	required=> 1,
	default	=> 'https://api.brightcove.com/services/post',
);

has token => (
	is	=> 'rw',
	required=> 1,
);

has user_agent => (
	is	=> 'ro',
	default	=> sub {
		my $self = shift;
		my $ua = LWP::UserAgent->new;
		$ua->agent(__PACKAGE__.'/'.$VERSION);
		return $ua;
	},
);


sub get {
	my $self = shift;
	my $command = shift;
	my $params = shift || {};

	$params->{command} = $command;
	$params->{token} = $self->token;

	my $url = URI->new($self->read_api_url);
	$url->query_form(%$params);
	my $res = $self->user_agent->get($url->as_string);

	if ($res->is_success) {
		return decode_json($res->decoded_content);
	} else {
		confess $res->status_line;
	}
}


sub post {
	my $self = shift;
	my $method = shift;
	my $params = shift || {};
	my $file = shift;

	$params->{token} = $self->token;

	my $jsonrpc = encode_json({
		method => $method,
		params => $params,
	});

	my $res;
	if (defined($file) and -f $file) {
		$res = $self->user_agent->post(
			$self->write_api_url,
			Content_Type => 'form-data',
			Content => [
				json => $jsonrpc,
				file => [ $file ]
			]
		);
	} else {
		$res = $self->user_agent->post(
			$self->write_api_url,
			Content => [ json => $jsonrpc ]
		);
	}

	if ($res->is_success) {
		my $content = $res->decoded_content;
		return decode_json($content);
	} else {
		confess $res->status_line;
	}
}

1;


__END__