File Coverage

blib/lib/AMF/Connection/MessageBody.pm

Criterion	Covered	Total	%
statement	6	29	20.6
branch	0	6	0.0
condition	0	3	0.0
subroutine	2	12	16.6
pod	0	10	0.0
total	8	60	13.3

package AMF::Connection::MessageBody;

use strict;
use Carp;

sub new {
	my $proto = shift;
	my $class = ref($proto) || $proto;
	my ($target,$response,$data) = @_;

	my $self = {
		'target' => $target,
		'response' => $response,
		'data' => $data # we might want to have some kind of mapper between remote objects and local / user registered ones
		};

	return bless($self, $class);
	};

sub setTarget {
	my ($class, $target) = @_;

	$class->{'target'} = $target;
	};

sub getTarget {
	my ($class) = @_;

	return $class->{'target'};
	};

sub setResponse {
	my ($class, $response) = @_;

	$class->{'response'} = $response;
	};

sub getResponse {
	my ($class) = @_;

	return $class->{'response'};
	};

sub setData {
	my ($class, $data) = @_;

	$class->{'data'} = $data;
	};

sub getData {
	my ($class) = @_;

	return $class->{'data'};
	};

# HTTP::Response-ish methods ...

sub is_error {
	my ($class) = @_;

	return ($class->{'target'} =~ m|onStatus|) ? 1 : 0 ;
	};

sub is_success {
	my ($class) = @_;

	return ($class->{'target'} =~ m|onResult|) ? 1 : 0 ;
	};

sub is_debug {
	my ($class) = @_;

	return ($class->{'target'} =~ m|onDebug|) ? 1 : 0 ;
	};

1;
__END__