File Coverage

blib/lib/WebService/AbuseIPDB/BlacklistMember.pm

Criterion	Covered	Total	%
statement	14	14	100.0
branch			n/a
condition			n/a
subroutine	6	6	100.0
pod	3	3	100.0
total	23	23	100.0

package WebService::AbuseIPDB::BlacklistMember;
#
#===============================================================================
#         FILE: BlacklistMember.pm
#  DESCRIPTION: Member of blacklist response
#       AUTHOR: Pete Houston (pete), [e-mail]
# ORGANIZATION: Openstrike
#      CREATED: 11/02/20 14:05:32
#===============================================================================

use strict;
use warnings;

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

sub new {
	my ($class, $data) = @_;
	bless $data, $class;
	return $data;
}

sub score            { return shift->{abuseConfidenceScore} }
sub ip               { return shift->{ipAddress} }

1;

__END__