File Coverage

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

Criterion	Covered	Total	%
statement	24	26	92.3
branch			n/a
condition	4	4	100.0
subroutine	8	9	88.8
pod	1	2	50.0
total	37	41	90.2

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

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

our $VERSION = 0.005;

apply Geo::Location::IP::Role::Record::HasConfidence;

field $code :param :reader = undef;

sub _from_hash ($class, $hash_ref) {
    return $class->new(
        code       => $hash_ref->{code}       // undef,
        confidence => $hash_ref->{confidence} // undef,
    );
}

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

sub stringify {
    my $self = shift;

    return $self->code;
}

1;
__END__