File Coverage

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

Criterion	Covered	Total	%
statement	3	11	27.2
branch			n/a
condition			n/a
subroutine	1	2	50.0
pod	1	1	100.0
total	5	14	35.7

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

package Chef::REST::Client::clients;
use parent qw { Chef::REST::Client::EndPoints };

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

sub list
  {
    my $self = shift;
    my $list_of_roles = $self->___data___;
    foreach my $c ( keys(%$list_of_clients) ){
      my $client = Chef::REST::Client::client( 'name' => $r,
                                             'url'  => $list_of_roles->{$r}
                                           );
      push @{'___clients_list___'} , $client;
    }
    return @{'___clients_list___'};
  }

  1;

__DATA__