The Perl Toolchain Summit 2025 Needs You: You can help 🙏 Learn more

VOEGELAS / Geo-Location-IP-0.003 / lib / Geo / Location / IP / Record / MaxMind.pm 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
—
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96

              
package Geo::Location::IP::Record::MaxMind;
# SPDX-License-Identifier: Artistic-1.0-Perl OR GPL-1.0-or-later
use 5.026;
use warnings;
use utf8;
use Object::Pad;
class Geo::Location::IP::Record::MaxMind;
our $VERSION = 0.003;
field $queries_remaining :param :reader = undef;
sub _from_hash ($class, $hash_ref) {
    return $class->new(queries_remaining => $hash_ref->{queries_remaining}
            // undef);
}
1;
__END__
=encoding UTF-8
=head1 NAME
Geo::Location::IP::Record::MaxMind - MaxMind account data
=head1 VERSION
version 0.003
=head1 SYNOPSIS
  my $maxmind = Geo::Location::IP::Record::MaxMind->new(
    queries_remaining => 9999,
  );
=head1 DESCRIPTION
This class contains data returned from a web service query.
All fields may be undefined.
=head1 SUBROUTINES/METHODS
=head2 new
  my $maxmind = Geo::Location::IP::Record::MaxMind->new(
    queries_remaining => 9999,
  );
Creates a new MaxMind record.
=head2 queries_remaining
  my $queries_remaining = $maxmind->queries_remaining;
Returns the number of queries remaining for a web service end point.
=for Pod::Coverage DOES META
=head1 DIAGNOSTICS
None.
=head1 CONFIGURATION AND ENVIRONMENT
None.
=head1 DEPENDENCIES
None.
=head1 INCOMPATIBILITIES
None.
=head1 BUGS AND LIMITATIONS
None known.
=head1 AUTHOR
Andreas Vögele E<lt>voegelas@cpan.orgE<gt>
=head1 LICENSE AND COPYRIGHT
Copyright (C) 2025 Andreas Vögele
This module is free software; you can redistribute it and/or modify it under
the same terms as Perl itself.
=cut