File Coverage

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

Criterion	Covered	Total	%
statement	3	27	11.1
branch	0	12	0.0
condition			n/a
subroutine	1	4	25.0
pod	2	3	66.6
total	6	46	13.0

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

package Chef::REST::Client::attributes;
use Chef::REST::Client::attribute;

$Chef::REST::Client::attributes::VERSION = 1.0;

sub new
{
	my $class = shift;
	my $param = shift;
	my $self = {};
	bless $self, $class;
	$self->array_parse($param);
	$self->parse( $param );
	return $self->{'___collection___'};
}

sub array_parse
{
	my $self = shift;
	my $param = shift;
   return $self->{'___collection___'} unless ref $param eq 'ARRAY';
	map { $self->parse( $_ );  } @$param;
}

sub parse
{
	my $self  = shift;
	my $param = shift;

	return  unless ref $param eq 'HASH';

		foreach my $k ( keys (%$param ) )
		{
			if ( ref $param->{$k} eq 'HASH' )
			{
			   my $_obj =  new Chef::REST::Client::attribute(
			     					key   => $k ,
			     					value => $self->parse( $param->{ $k } )
			     	 	);
				push @{ $self->{ '___collection___'} } , $_obj if defined $_obj;
			}
			elsif ( ref $param->{$k} eq 'ARRAY' )
			{
				#my $_obj = new Chef::REST::Client::attribute( key => $k , value => $param->{$k} );
				return $param->{$k};
			}
			else
			{
				my $_obj =  new Chef::REST::Client::attribute(
			     					key   => $k ,
			     					value => $param->{ $k }
			     	 			);

				push @{ $self->{ '___collection___'} } , $_obj if defined $_obj;
			}

		}
	#return $self->{'___collection___'};
}

1;

__DATA__