File Coverage

blib/lib/Chef/REST/Client/attribute.pm

Criterion	Covered	Total	%
statement	0	11	0.0
branch	0	4	0.0
condition			n/a
subroutine	0	3	0.0
pod	2	3	66.6
total	2	21	9.5

#--------------------------------------------------------------------#
# @class  : Chef::Rest::Client::attribute                            #
# @author : Bhavin Patel                                             #
#--------------------------------------------------------------------#

package Chef::REST::Client::attribute;
$Chef::REST::Client::attribute::VERSION = 1.0;

sub new
{
	my $class = shift;
	my $param = {@_};
	my $self = {};
	bless $self, $class;

	$self->key  ( $param->{'key'  });
	$self->value( $param->{'value'});

	return $self;
}

sub key   { $_[0]->{'key'  } = $_[1] if defined $_[1]; return $_[0]->{'key'  }; }
sub value { $_[0]->{'value'} = $_[1] if defined $_[1]; return $_[0]->{'value'}; }

1;

__DATA__