File Coverage

blib/lib/WWW/Hetzner/Cloud/Datacenter.pm
Criterion Covered Total %
statement 7 9 77.7
branch n/a
condition n/a
subroutine 3 4 75.0
pod 2 2 100.0
total 12 15 80.0


line stmt bran cond sub pod time code
1             package WWW::Hetzner::Cloud::Datacenter;
2             # ABSTRACT: Hetzner Cloud Datacenter object
3              
4             our $VERSION = '0.100';
5              
6 25     25   162 use Moo;
  25         51  
  25         200  
7 25     25   9730 use namespace::clean;
  25         96  
  25         191  
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 location_data => ( is => 'ro', init_arg => 'location', default => sub { {} } );
27              
28 2     2 1 6064 sub location { shift->location_data->{name} }
29              
30              
31             sub data {
32 0     0 1   my ($self) = @_;
33             return {
34 0           id => $self->id,
35             name => $self->name,
36             description => $self->description,
37             location => $self->location_data,
38             };
39             }
40              
41              
42              
43             1.
44              
45             __END__