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


line stmt bran cond sub pod time code
1             package WebService::AbuseIPDB::BlacklistResponse;
2             #
3             #===============================================================================
4             # FILE: BlacklistResponse.pm
5             # DESCRIPTION: Response for blacklist endpoint
6             # AUTHOR: Pete Houston (pete), cpan@openstrike.co.uk
7             # ORGANIZATION: Openstrike
8             # CREATED: 11/02/20 13:46:02
9             #===============================================================================
10              
11 1     1   7 use strict;
  1         2  
  1         32  
12 1     1   6 use warnings;
  1         2  
  1         28  
13              
14 1     1   5 use parent 'WebService::AbuseIPDB::Response';
  1         2  
  1         5  
15 1     1   502 use WebService::AbuseIPDB::BlacklistMember;
  1         3  
  1         102  
16             our $VERSION = $WebService::AbuseIPDB::Response::VERSION;
17              
18 1     1 1 3 sub as_at { return shift->{meta}->{generatedAt} }
19             sub list {
20             return
21 6         18 map { WebService::AbuseIPDB::BlacklistMember->new ($_) }
22 2     2 1 892 @{shift->{data}};
  2         6  
23             }
24              
25             1;
26              
27             __END__