File Coverage

blib/lib/Chef/REST.pm

Criterion	Covered	Total	%
statement	30	46	65.2
branch	3	6	50.0
condition			n/a
subroutine	9	13	69.2
pod	5	6	83.3
total	47	71	66.2

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

my @base;
BEGIN {
use File::Basename qw { dirname };
use File::Spec::Functions qw { splitdir rel2abs };
 @base = ( splitdir ( rel2abs ( dirname(__FILE__) ) ) );
 pop @base; #Chef
 push @INC, '/', @base;
};

use parent qw { Chef Chef::Header };
use LWP::UserAgent;
use Mojo::JSON;

sub new {
   my $class = shift;
   my $self  = $class->SUPER::new(@_);
   bless $self, $class;


	$self->_UA_( new LWP::UserAgent( ) );
	$self->_UA_->ssl_opts( 'verify_hostname' => 0 );

   return $self;

}

sub _UA_
{
	my ($self,$new_ua) = (@_);
  	    $self->{'_UA_'} = $new_ua if defined $new_ua;
  	return $self->{'_UA_'};
}

sub add_headers
{
  		  my $self = shift;
  		  my $param = shift;
  		  foreach my $header_field( keys( %$param) ){
  		     $self->_UA_->default_header( $header_field, $param->{ $header_field });
  		  }
  		  return $self;
}

sub get {
	my $self  = shift;
	my $param = {@_};

	my $response =
	   $self->add_headers(
	       $self->header(
		           'Method'  => 'GET',
		           'Path'    => $param->{'api_end_point'},
		           'Content' => ''
		    )->hash
	   )
		->_UA_
		->get(
		     $self->get_uri( $param->{'api_end_point'} )
	   );

	return $response;
}

sub post
{
	my $self  = shift;
	my $param = {@_};
	my $mojo_json = new Mojo::JSON();
	my $response  = $self->add_headers(
	                    $self->header(
		                             'Method'  => 'POST',
		                             'Path'    => $param->{'api_end_point'},
		                             'Content' => $mojo_json->encode($param->{'data'})
		                        )->hash
		                      )
		                      ->_UA_
		                      ->post(
		                         $self->get_uri( $param->{'api_end_point'} ),
		                         'Content' => $mojo_json->encode($param->{'data'})
	                          );

	return $response;

}

sub get_uri
{
	my ($self,$api_end_point) = (@_);
	return join '/', ( $self->server,
	                   $api_end_point )
	        if defined $api_end_point ;
}

sub name
{
	my ($self,$client_name) = (@_);
       $self->{ 'CHEF_CLIENT' } = $client_name if defined $client_name;
   return $self->{ 'CHEF_CLIENT' };
}


1;

__DATA__