File Coverage

blib/lib/WebService/AbuseIPDB/CheckBlockResponse.pm

Criterion	Covered	Total	%
statement	27	27	100.0
branch	2	2	100.0
condition			n/a
subroutine	11	11	100.0
pod	7	7	100.0
total	47	47	100.0

package WebService::AbuseIPDB::CheckBlockResponse;
#
#===============================================================================
#         FILE: CheckBlockResponse.pm
#  DESCRIPTION: Response for check_block endpoint
#       AUTHOR: Pete Houston (pete), [e-mail]
# ORGANIZATION: Openstrike
#      CREATED: 04/07/20 15:23:03
#===============================================================================

use strict;
use warnings;

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

use WebService::AbuseIPDB::ReportedAddress;

sub usage_type       { return shift->{data}->{addressSpaceDesc} }
sub network          { return shift->{data}->{networkAddress} }
sub netmask          { return shift->{data}->{netmask} }
sub min_addr         { return shift->{data}->{minAddress} }
sub max_addr         { return shift->{data}->{maxAddress} }
sub num_addr         { return shift->{data}->{numPossibleHosts} }

sub reports {
	my $self = shift;
	return @{$self->{reports}} if exists $self->{reports};
	$self->{reports} = [];
	push @{$self->{reports}}, WebService::AbuseIPDB::ReportedAddress->new ($_)
		for @{$self->{data}->{reportedAddress}};
	return @{$self->{reports}};
}

1;

__END__