line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
|
|
|
|
|
|
package Net::Dynect::REST::ARecord; |
2
|
|
|
|
|
|
|
# $Id: ARecord.pm 149 2010-09-26 01:33:15Z james $ |
3
|
1
|
|
|
1
|
|
1402
|
use strict; |
|
1
|
|
|
|
|
2
|
|
|
1
|
|
|
|
|
37
|
|
4
|
1
|
|
|
1
|
|
5
|
use warnings; |
|
1
|
|
|
|
|
2
|
|
|
1
|
|
|
|
|
28
|
|
5
|
1
|
|
|
1
|
|
647
|
use Net::Dynect::REST::ResourceRecord; |
|
1
|
|
|
|
|
3
|
|
|
1
|
|
|
|
|
109
|
|
6
|
|
|
|
|
|
|
our @ISA = ("Net::Dynect::REST::ResourceRecord"); |
7
|
|
|
|
|
|
|
our $VERSION = do { my @r = (q$Revision: 149 $ =~ /\d+/g); sprintf "%d."."%03d" x $#r, @r }; |
8
|
|
|
|
|
|
|
|
9
|
|
|
|
|
|
|
sub _service_base_uri { |
10
|
0
|
|
|
0
|
|
|
return "ARecord"; |
11
|
|
|
|
|
|
|
} |
12
|
|
|
|
|
|
|
|
13
|
|
|
|
|
|
|
=head1 NAME |
14
|
|
|
|
|
|
|
|
15
|
|
|
|
|
|
|
Net::Dynect::REST::ARecord - IPv4 Address Record |
16
|
|
|
|
|
|
|
|
17
|
|
|
|
|
|
|
=head1 AUTHOR |
18
|
|
|
|
|
|
|
|
19
|
|
|
|
|
|
|
James Bromberger, james@rcpt.to |
20
|
|
|
|
|
|
|
|
21
|
|
|
|
|
|
|
=head1 SEE ALSO |
22
|
|
|
|
|
|
|
|
23
|
|
|
|
|
|
|
L, L, L, L, L. |
24
|
|
|
|
|
|
|
|
25
|
|
|
|
|
|
|
=head1 COPYRIGHT AND LICENSE |
26
|
|
|
|
|
|
|
|
27
|
|
|
|
|
|
|
Copyright (C) 2010 by James Bromberger |
28
|
|
|
|
|
|
|
|
29
|
|
|
|
|
|
|
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.10.1 or, at your option, any later version of Perl 5 you may have available. |
30
|
|
|
|
|
|
|
|
31
|
|
|
|
|
|
|
=cut |
32
|
|
|
|
|
|
|
|
33
|
|
|
|
|
|
|
|
34
|
|
|
|
|
|
|
1; |