File Coverage

blib/lib/WebService/AbuseIPDB/ReportedAddress.pm
Criterion Covered Total %
statement 14 14 100.0
branch n/a
condition n/a
subroutine 8 8 100.0
pod 6 6 100.0
total 28 28 100.0


line stmt bran cond sub pod time code
1             package WebService::AbuseIPDB::ReportedAddress;
2             #
3             #===============================================================================
4             # FILE: ReportedAddress.pm
5             # DESCRIPTION: Report of one address resulting from a check_block
6             # AUTHOR: Pete Houston (pete), cpan@openstrike.co.uk
7             # ORGANIZATION: Openstrike
8             # CREATED: 04/07/20 15:05:53
9             #===============================================================================
10              
11 1     1   7 use strict;
  1         2  
  1         29  
12 1     1   4 use warnings;
  1         2  
  1         194  
13              
14             our $VERSION = $WebService::AbuseIPDB::Response::VERSION;
15             sub new {
16 2     2 1 5 my ($class, $data) = @_;
17 2         3 bless $data, $class;
18 2         7 return $data;
19             }
20 2     2 1 8 sub cc { return shift->{countryCode} }
21 2     2 1 15 sub score { return shift->{abuseConfidenceScore} }
22 2     2 1 13 sub report_count { return shift->{numReports} }
23 2     2 1 17 sub last_report_time { return shift->{mostRecentReport} }
24 2     2 1 1074 sub ip { return shift->{ipAddress} }
25              
26             1;
27              
28             __END__