File Coverage

blib/lib/WebService/AbuseIPDB/BlacklistResponse.pm

Criterion	Covered	Total	%
statement	16	16	100.0
branch			n/a
condition			n/a
subroutine	6	6	100.0
pod	2	2	100.0
total	24	24	100.0

package WebService::AbuseIPDB::BlacklistResponse;
#
#===============================================================================
#         FILE: BlacklistResponse.pm
#  DESCRIPTION: Response for blacklist endpoint
#       AUTHOR: Pete Houston (pete), [e-mail]
# ORGANIZATION: Openstrike
#      CREATED: 11/02/20 13:46:02
#===============================================================================

use strict;
use warnings;

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

sub as_at { return shift->{meta}->{generatedAt} }
sub list {
	return
		map { WebService::AbuseIPDB::BlacklistMember->new ($_) }
		@{shift->{data}};
}

1;

__END__