File Coverage

blib/lib/Test/Shared/Fixture/Data/OFN/Address/Place.pm
Criterion Covered Total %
statement 18 18 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod 1 1 100.0
total 24 24 100.0


line stmt bran cond sub pod time code
1             package Test::Shared::Fixture::Data::OFN::Address::Place;
2              
3 29     29   4149748 use base qw(Data::OFN::Address);
  29         68  
  29         17595  
4 29     29   230 use strict;
  29         63  
  29         948  
5 29     29   144 use warnings;
  29         73  
  29         1818  
6              
7 29     29   20804 use Class::Utils qw(split_params);
  29         34807  
  29         756  
8              
9             our $VERSION = 0.02;
10              
11             sub new {
12 28     28 1 5993876 my ($class, @params) = @_;
13              
14 28         239 my ($object_params_ar) = split_params(['id'], @params);
15             @params = (
16 28         424 @{$object_params_ar},
  28         116  
17             'address_place' => 'https://linked.cuzk.cz/resource/ruian/adresni-misto/16135661',
18             );
19              
20 28         470 my $self = $class->SUPER::new(@params);
21              
22 28         355 return $self;
23             }
24              
25             1;
26              
27             __END__