File Coverage

blib/lib/IO/Iron/ClientBase.pm

Criterion	Covered	Total	%
statement	29	38	76.3
branch	0	2	0.0
condition			n/a
subroutine	10	14	71.4
pod	4	4	100.0
total	43	58	74.1

package IO::Iron::ClientBase;

## no critic (Documentation::RequirePodAtEnd)
## no critic (Documentation::RequirePodSections)
## no critic (Subroutines::RequireArgUnpacking)

use 5.010_000;
use strict;
use warnings;

# Global creator
BEGIN {
	# No exports
}

# Global destructor
END {
}


# ABSTRACT: Base package for Client Libraries to Iron services IronCache, IronMQ and IronWorker.

our $VERSION = '0.12_01'; # TRIAL VERSION: generated by DZP::OurPkgVersion


use Log::Any  qw{$log};
use Hash::Util 0.06 qw{lock_keys unlock_keys};
use Carp::Assert::More;
use English '-no_match_vars';


sub new {
	my ($class) = @_;
	$log->tracef('Entering new(%s)', $class);
	my $self = {};
	# These config items are used every time when a connection to REST is made.
	my @self_keys = ( ## no critic (CodeLayout::ProhibitQuotedWordLists)
		'project_id',            # The ID of the project to use for requests.
		'connection',            # Reference to a IO::Iron::Connection object.
		'last_http_status_code', # Contains the HTTP return code after a successful call to the remote host.
	);
	bless $self, $class;
	lock_keys(%{$self}, @self_keys);

	$log->tracef('Exiting new: %s', $self);
	return $self;
}


sub project_id { return $_[0]->_access_internal('project_id', $_[1]); }
sub connection { return $_[0]->_access_internal('connection', $_[1]); }
sub last_http_status_code { return $_[0]->_access_internal('last_http_status_code', $_[1]); }

# INTERNAL METHODS
# For use in the inheriting subclass

sub _access_internal {
    my ($self, $var_name, $var_value) = @_;
    $log->tracef('Entering _access_internal(%s, %s)', $var_name, $var_value);
    if( defined $var_value ) {
        $self->{$var_name} = $var_value;
        return $self;
    }
    else {
        return $self->{$var_name};
    }
}

1;

__END__