File Coverage

blib/lib/Geo/Location/IP/Record/Location.pm

Criterion	Covered	Total	%
statement	33	37	89.1
branch	0	2	0.0
condition	11	17	64.7
subroutine	13	14	92.8
pod	7	8	87.5
total	64	78	82.0

package Geo::Location::IP::Record::Location;

# 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::Location;

our $VERSION = 0.005;

field $accuracy_radius :param :reader    = undef;
field $average_income :param :reader     = undef;
field $latitude :param :reader           = undef;
field $longitude :param :reader          = undef;
field $metro_code :param :reader         = undef;
field $population_density :param :reader = undef;
field $time_zone :param :reader          = undef;

sub _from_hash ($class, $hash_ref) {
    return $class->new(
        accuracy_radius    => $hash_ref->{accuracy_radius}    // undef,
        average_income     => $hash_ref->{average_income}     // undef,
        latitude           => $hash_ref->{latitude}           // undef,
        longitude          => $hash_ref->{longitude}          // undef,
        metro_code         => $hash_ref->{metro_code}         // undef,
        population_density => $hash_ref->{population_density} // undef,
        time_zone          => $hash_ref->{time_zone}          // undef,
    );
}

use overload
    q{""} => \&stringify;

sub stringify {
    my $self = shift;

    if (defined $self->latitude && defined $self->longitude) {
        return sprintf "%g, %g", $self->latitude, $self->longitude;
    }
    return;
}

1;
__END__