From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

PERLSRVDE / DNS-Hetzner-0.05 / lib / DNS / Hetzner / API / Records.pm 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
—
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145

              
package DNS::Hetzner::API::Records;
$DNS::Hetzner::API::Records::VERSION = '0.05';
# ABSTRACT: Records
# ---
# This class is auto-generated by bin/get_hetzner_info.pl
# ---
use v5.24;
use Moo;
use Types::Standard qw(:all);
use Mojo::Base -strict, -signatures;
extends 'DNS::Hetzner::APIBase';
with 'MooX::Singleton';
use DNS::Hetzner::Schema;
has endpoint  => ( is => 'ro', isa => Str, default => sub { 'records' } );
sub list ($self, %params) {
    return $self->_do( 'GetRecords', \%params, '', { type => 'get' } );
}
sub create ($self, %params) {
    return $self->_do( 'CreateRecord', \%params, '', { type => 'post' } );
}
sub bulk_create ($self, %params) {
    return $self->_do( 'BulkCreateRecords', \%params, '/bulk', { type => 'post' } );
}
sub bulk_update ($self, %params) {
    return $self->_do( 'BulkUpdateRecords', \%params, '/bulk', { type => 'put' } );
}
sub delete ($self, %params) {
    return $self->_do( 'DeleteRecord', \%params, '/:RecordID', { type => 'delete' } );
}
sub get ($self, %params) {
    return $self->_do( 'GetRecord', \%params, '/:RecordID', { type => 'get' } );
}
sub update ($self, %params) {
    return $self->_do( 'UpdateRecord', \%params, '/:RecordID', { type => 'put' } );
}
1;
__END__
=pod
=encoding UTF-8
=head1 NAME
DNS::Hetzner::API::Records - Records
=head1 VERSION
version 0.05
=head1 SYNOPSIS
    use DNS::Hetzner;
    my $api_key = '1234abc';
    my $dns     = DNS::Hetzner->new(
        token => $api_key,
    );
    $dns->records->create(
    );
=head1 ATTRIBUTES
=over 4
=item * endpoint
=back
=head1 METHODS
=head2 list
Returns all records associated with user.
    $dns->records->list();
=head2 create
Creates a new record.
    $dns->records->create();
=head2 bulk_create
Create several records at once.
    $dns->records->bulk_create();
=head2 bulk_update
Update several records at once.
    $dns->records->bulk_update();
=head2 delete
Deletes a record.
    $dns->records->delete();
=head2 get
Returns information about a single record.
    $dns->records->get();
=head2 update
Updates a record.
    $dns->records->update();
=head1 AUTHOR
Renee Baecker <reneeb@cpan.org>
=head1 COPYRIGHT AND LICENSE
This software is Copyright (c) 2020 by Renee Baecker.
This is free software, licensed under:
  The Artistic License 2.0 (GPL Compatible)
=cut