File Coverage

blib/lib/Geo/Location/IP/Role/Record/HasNames.pm
Criterion Covered Total %
statement 15 15 100.0
branch n/a
condition n/a
subroutine 14 14 100.0
pod 10 10 100.0
total 39 39 100.0


line stmt bran cond sub pod time code
1             package Geo::Location::IP::Role::Record::HasNames;
2              
3             # SPDX-License-Identifier: Artistic-1.0-Perl OR GPL-1.0-or-later
4              
5 17     17   278 use 5.026;
  17         51  
6 17     17   80 use warnings;
  17         30  
  17         793  
7 17     17   88 use utf8;
  17         28  
  17         90  
8              
9 17     17   575 use Object::Pad;
  17         33  
  17         2191  
10              
11             role Geo::Location::IP::Role::Record::HasNames;
12              
13             our $VERSION = 0.005;
14              
15 10     10 1 48 field $names :param :reader;
  10     10 1 56  
        6 1    
        6 1    
        6 1    
16 26     26 1 5216 field $name :reader;
  26     26 1 180  
        22 1    
        19 1    
        19 1    
17              
18             #<<<
19             ADJUST :params (:$locales) {
20             for my $locale (@{$locales}) {
21             if (exists $names->{$locale}) {
22             $name = $names->{$locale};
23             last;
24             }
25             }
26             }
27             #>>>
28              
29             1;
30             __END__