File Coverage

blib/lib/Geo/Location/IP/Role/HasLocales.pm
Criterion Covered Total %
statement 13 13 100.0
branch n/a
condition n/a
subroutine 6 6 100.0
pod 2 2 100.0
total 21 21 100.0


line stmt bran cond sub pod time code
1             package Geo::Location::IP::Role::HasLocales;
2              
3             # SPDX-License-Identifier: Artistic-1.0-Perl OR GPL-1.0-or-later
4              
5 10     10   168 use 5.026;
  10         41  
6 10     10   57 use warnings;
  10         21  
  10         800  
7 10     10   53 use utf8;
  10         18  
  10         89  
8              
9 10     10   322 use Object::Pad;
  10         21  
  10         79  
10              
11             role Geo::Location::IP::Role::HasLocales;
12              
13             our $VERSION = 0.005;
14              
15 8     8 1 36 field $locales :param :reader = ['en'];
        8 1    
16              
17 8         96 1;
18             __END__