File Coverage

blib/lib/Data/AMF/Type/Boolean.pm

Criterion	Covered	Total	%
statement	12	13	92.3
branch	1	2	50.0
condition			n/a
subroutine	4	4	100.0
pod	0	2	0.0
total	17	21	80.9

package Data::AMF::Type::Boolean;
use strict;
use warnings;

sub new
{
	my $class = shift;
	my $self = bless { data => $_[0] }, $class;
	return $self;
}

sub data
{
	my $self = shift;

	if(@_)
	{
		$self->{'data'} = $_[0];
	}

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

1;

__END__