File Coverage

blib/lib/DNS/Hetzner/API/PrimaryServers.pm
Criterion Covered Total %
statement 14 39 35.9
branch n/a
condition n/a
subroutine 5 10 50.0
pod 5 5 100.0
total 24 54 44.4


line stmt bran cond sub pod time code
1             package DNS::Hetzner::API::PrimaryServers;
2             $DNS::Hetzner::API::PrimaryServers::VERSION = '0.05';
3             # ABSTRACT: PrimaryServers
4              
5             # ---
6             # This class is auto-generated by bin/get_hetzner_info.pl
7             # ---
8              
9 2     2   1161 use v5.24;
  2         7  
10              
11 2     2   13 use Moo;
  2         6  
  2         13  
12 2     2   731 use Types::Standard qw(:all);
  2         4  
  2         47  
13              
14 2     2   101174 use Mojo::Base -strict, -signatures;
  2         5  
  2         22  
15              
16             extends 'DNS::Hetzner::APIBase';
17              
18             with 'MooX::Singleton';
19              
20 2     2   608 use DNS::Hetzner::Schema;
  2         5  
  2         684  
21              
22             has endpoint => ( is => 'ro', isa => Str, default => sub { 'primary_servers' } );
23              
24 0     0 1   sub list ($self, %params) {
  0            
  0            
  0            
25 0           return $self->_do( 'GetPrimaryServers', \%params, '', { type => 'get' } );
26             }
27              
28 0     0 1   sub create ($self, %params) {
  0            
  0            
  0            
29 0           return $self->_do( 'CreatePrimaryServer', \%params, '', { type => 'post' } );
30             }
31              
32 0     0 1   sub delete ($self, %params) {
  0            
  0            
  0            
33 0           return $self->_do( 'DeletePrimaryServer', \%params, '/:PrimaryServerID', { type => 'delete' } );
34             }
35              
36 0     0 1   sub get ($self, %params) {
  0            
  0            
  0            
37 0           return $self->_do( 'GetPrimaryServer', \%params, '/:PrimaryServerID', { type => 'get' } );
38             }
39              
40 0     0 1   sub update ($self, %params) {
  0            
  0            
  0            
41 0           return $self->_do( 'UpdatePrimaryServer', \%params, '/:PrimaryServerID', { type => 'put' } );
42             }
43              
44              
45             1;
46              
47             __END__