File Coverage

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

Criterion	Covered	Total	%
statement	3	10	30.0
branch			n/a
condition			n/a
subroutine	1	2	50.0
pod	0	1	0.0
total	4	13	30.7

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

package Chef::REST::Client::cookbook_versions;

use Chef::REST::Client::cookbook_version;

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

sub new
{
    my $class = shift;
    my $list_of_cookbook_versions = shift;

	 foreach my $v (@$list_of_cookbook_versions )
	 {
	 	push @{ '___cookbook_versions___' }
	 	   , new Chef::REST::Client::cookbook_version(
	 										'url'     => $v->{'url'    },
	 										'version' => $v->{'version'}
	 							    	);
	 }
	 return \@{'___cookbook_versions___'};

}
1;

=pod

=head1 NAME

Chef::REST::Client::cookbook_versions

=head1 VERSION

1.0

=head1 SYNOPSIS

my $obj = new Chef::REST::Client::cookbook_versions
              ( @list_of_cookbook_versions);

=head1 DESCRIPTION

used internally by other classes like L

=head1 METHODS

=head2 Constructor

returns array of L objects

=head1 KNOWN BUGS

=head1 SUPPORT

open a github ticket or email comments to Bhavin Patel

=head1 COPYRIGHT AND LICENSE

This Software is free to use , licensed under : The Artisic License 2.0 (GPL Compatible)

=cut