File Coverage

blib/lib/WWW/Hetzner/Cloud/Location.pm
Criterion Covered Total %
statement 6 8 75.0
branch n/a
condition n/a
subroutine 2 3 66.6
pod 1 1 100.0
total 9 12 75.0


line stmt bran cond sub pod time code
1             package WWW::Hetzner::Cloud::Location;
2             # ABSTRACT: Hetzner Cloud Location object
3              
4             our $VERSION = '0.100';
5              
6 25     25   306 use Moo;
  25         255  
  25         375  
7 25     25   10193 use namespace::clean;
  25         162  
  25         228  
8              
9              
10             has _client => (
11             is => 'ro',
12             required => 1,
13             weak_ref => 1,
14             init_arg => 'client',
15             );
16              
17             has id => ( is => 'ro' );
18              
19              
20             has name => ( is => 'ro' );
21              
22              
23             has description => ( is => 'ro' );
24              
25              
26             has city => ( is => 'ro' );
27              
28              
29             has country => ( is => 'ro' );
30              
31              
32             has network_zone => ( is => 'ro' );
33              
34              
35             sub data {
36 0     0 1   my ($self) = @_;
37             return {
38 0           id => $self->id,
39             name => $self->name,
40             description => $self->description,
41             city => $self->city,
42             country => $self->country,
43             network_zone => $self->network_zone,
44             };
45             }
46              
47              
48              
49             1.
50              
51             __END__