File Coverage

blib/lib/GeoIP2/Role/HasLocales.pm
Criterion Covered Total %
statement 18 18 100.0
branch n/a
condition n/a
subroutine 6 6 100.0
pod n/a
total 24 24 100.0


line stmt bran cond sub pod time code
1             package GeoIP2::Role::HasLocales;
2              
3 12     12   4565 use strict;
  12         23  
  12         284  
4 12     12   50 use warnings;
  12         21  
  12         392  
5              
6             our $VERSION = '2.006002';
7              
8 12     12   51 use Moo::Role;
  12         22  
  12         60  
9              
10 12     12   3469 use GeoIP2::Types qw( LocalesArrayRef );
  12         22  
  12         499  
11 12     12   59 use Sub::Quote qw( quote_sub );
  12         25  
  12         429  
12              
13 12     12   68 use namespace::clean;
  12         19  
  12         77  
14              
15             has locales => (
16             is => 'ro',
17             isa => LocalesArrayRef,
18             default => quote_sub(q{ ['en'] }),
19             );
20              
21             1;