File Coverage

blib/lib/GeoIP2/Role/Model/Flat.pm
Criterion Covered Total %
statement 12 12 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod n/a
total 16 16 100.0


line stmt bran cond sub pod time code
1             package GeoIP2::Role::Model::Flat;
2              
3 7     7   2801 use strict;
  7         19  
  7         168  
4 7     7   30 use warnings;
  7         13  
  7         220  
5              
6             our $VERSION = '2.006002';
7              
8 7     7   31 use Moo::Role;
  7         13  
  7         41  
9              
10 7     7   2260 use namespace::clean;
  7         27  
  7         58  
11              
12             around BUILDARGS => sub {
13             my $orig = shift;
14             my $self = shift;
15              
16             my %p = @_;
17              
18             return $self->$orig( %{ $p{raw} }, %p );
19             };
20              
21             1;