File Coverage

blib/lib/IP/Geolocation/MMDB/Metadata.pm
Criterion Covered Total %
statement 29 29 100.0
branch n/a
condition n/a
subroutine 13 13 100.0
pod 10 10 100.0
total 52 52 100.0


line stmt bran cond sub pod time code
1             package IP::Geolocation::MMDB::Metadata;
2              
3             # SPDX-License-Identifier: Artistic-1.0-Perl OR GPL-1.0-or-later
4              
5 1     1   14 use 5.016;
  1         2  
6 1     1   4 use warnings;
  1         2  
  1         20  
7 1     1   4 use utf8;
  1         4  
  1         4  
8              
9             our $VERSION = 1.009;
10              
11             sub new {
12 1     1 1 5 my ($class, %attrs) = @_;
13              
14 1         3 my $self = bless \%attrs, $class;
15              
16 1         3 return $self;
17             }
18              
19             sub binary_format_major_version {
20 1     1 1 755 my ($self) = @_;
21              
22 1         7 return $self->{binary_format_major_version};
23             }
24              
25             sub binary_format_minor_version {
26 1     1 1 3 my ($self) = @_;
27              
28 1         4 return $self->{binary_format_minor_version};
29             }
30              
31             sub build_epoch {
32 1     1 1 3 my ($self) = @_;
33              
34 1         4 return $self->{build_epoch};
35             }
36              
37             sub database_type {
38 1     1 1 2 my ($self) = @_;
39              
40 1         4 return $self->{database_type};
41             }
42              
43             sub languages {
44 1     1 1 11 my ($self) = @_;
45              
46 1         4 return $self->{languages};
47             }
48              
49             sub description {
50 1     1 1 2 my ($self) = @_;
51              
52 1         3 return $self->{description};
53             }
54              
55             sub ip_version {
56 1     1 1 3 my ($self) = @_;
57              
58 1         4 return $self->{ip_version};
59             }
60              
61             sub node_count {
62 1     1 1 2 my ($self) = @_;
63              
64 1         4 return $self->{node_count};
65             }
66              
67             sub record_size {
68 1     1 1 3 my ($self) = @_;
69              
70 1         3 return $self->{record_size};
71             }
72              
73             1;
74             __END__