File Coverage

blib/lib/WebService/AbuseIPDB/Response.pm

Criterion	Covered	Total	%
statement	15	15	100.0
branch	2	2	100.0
condition			n/a
subroutine	6	6	100.0
pod	3	3	100.0
total	26	26	100.0

package WebService::AbuseIPDB::Response;

#===============================================================================
#         FILE: Response.pm
#  DESCRIPTION: Generic Response Object - See POD for details
#       AUTHOR: Pete Houston (pete), [e-mail]
# ORGANIZATION: Openstrike
#      CREATED: 12/08/19 14:38:21
#===============================================================================

use strict;
use warnings;

use WebService::AbuseIPDB;

our $VERSION = $WebService::AbuseIPDB::VERSION;

sub new {
	my ($class, $res) = @_;
	my $self =
	  ref $res
	  ? $res
	  : {
		errors => [
			{   status => 500,
				detail => 'Client could not connect'
			}
		]
	  };
	bless ($self, $class);
	return $self;
}

# Accessors

sub successful { return not exists shift->{errors} }
sub errors     { return shift->{errors} }

1;

__END__