File Coverage

blib/lib/Geo/Location/IP/Record/MaxMind.pm
Criterion Covered Total %
statement 18 18 100.0
branch n/a
condition 2 2 100.0
subroutine 6 6 100.0
pod 1 1 100.0
total 27 27 100.0


line stmt bran cond sub pod time code
1             package Geo::Location::IP::Record::MaxMind;
2              
3             # SPDX-License-Identifier: Artistic-1.0-Perl OR GPL-1.0-or-later
4              
5 14     14   136549 use 5.026;
  14         48  
6 14     14   82 use warnings;
  14         24  
  14         652  
7 14     14   60 use utf8;
  14         25  
  14         71  
8              
9 14     14   1139 use Object::Pad;
  14         15600  
  14         71  
10              
11             class Geo::Location::IP::Record::MaxMind;
12              
13             our $VERSION = 0.005;
14              
15             field $queries_remaining :param :reader = undef;
16              
17 9     9 1 21 sub _from_hash ($class, $hash_ref) {
  9     3   43  
  9         21  
  9         20  
  3         1031  
  3         18  
18             return $class->new(queries_remaining => $hash_ref->{queries_remaining}
19 9   100     136 // undef);
20             }
21              
22             1;
23             __END__