]>
Commit | Line | Data |
---|---|---|
718ac053 AD |
1 | bless( { |
2 | '_content' => '{"rrsets":[{"changetype":"REPLACE","name":"8.8.8.8.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.6.8.4.0.6.8.4.1.0.0.2.ip6.arpa.","records":[{"content":"myhostname.","disabled":false,"name":"8.8.8.8.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.6.8.4.0.6.8.4.1.0.0.2.ip6.arpa.","priority":0,"type":"PTR"}],"ttl":"3600","type":"PTR"}]}', | |
3 | '_headers' => bless( { | |
4 | '::std_case' => { | |
5 | 'x-api-key' => 'X-API-Key' | |
6 | }, | |
7 | 'content-type' => 'application/json; charset=UTF-8', | |
8 | 'x-api-key' => '1234' | |
9 | }, 'HTTP::Headers' ), | |
10 | '_method' => 'PATCH', | |
11 | '_uri' => bless( do{\(my $o = 'http://localhost:8881/api/v1/servers/localhost/zones/domain.com')}, 'URI::http' ) | |
12 | }, 'HTTP::Request' ); |