File Coverage

blib/lib/GeoIP2/Role/Record/Country.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::Record::Country;
2              
3 12     12   4660 use strict;
  12         22  
  12         308  
4 12     12   50 use warnings;
  12         20  
  12         396  
5              
6             our $VERSION = '2.006002';
7              
8 12     12   54 use Moo::Role;
  12         20  
  12         62  
9              
10 12         1000 use GeoIP2::Types qw(
11             Bool
12             BoolCoercion
13             NonNegativeInt
14             PositiveInt
15             Str
16 12     12   3499 );
  12         28  
17 12     12   68 use Sub::Quote qw( quote_sub );
  12         22  
  12         444  
18              
19 12     12   66 use namespace::clean;
  12         17  
  12         62  
20              
21             with 'GeoIP2::Role::Record::HasNames';
22              
23             has is_in_european_union => (
24             is => 'ro',
25             isa => Bool,
26             default => quote_sub(q{ 0 }),
27             coerce => BoolCoercion,
28             );
29              
30             has iso_code => (
31             is => 'ro',
32             isa => Str,
33             predicate => 'has_iso_code',
34             );
35              
36             has geoname_id => (
37             is => 'ro',
38             isa => PositiveInt,
39             predicate => 'has_geoname_id',
40             );
41              
42             has confidence => (
43             is => 'ro',
44             isa => NonNegativeInt,
45             predicate => 'has_confidence',
46             );
47              
48             1;