| … | |
… | |
| 5 | =head1 SYNOPSIS |
5 | =head1 SYNOPSIS |
| 6 | |
6 | |
| 7 | use EV; |
7 | use EV; |
| 8 | use EV::ADNS; |
8 | use EV::ADNS; |
| 9 | |
9 | |
| 10 | EV::ADNS::submit "example.com", EV::ADNS::r_a, 0, sub { |
10 | EV::ADNS::submit "example.com", EV::ADNS::r_addr, 0, sub { |
| 11 | my ($status, $expires, @a) = @_; |
11 | my ($status, $expires, @a) = @_; |
| 12 | warn $a[0]; # "127.13.166.3" etc. |
12 | warn $a[0]; # "127.13.166.3" etc. |
| 13 | }; |
13 | }; |
| 14 | |
14 | |
| 15 | EV::loop; |
15 | EV::loop; |
| … | |
… | |
| 59 | documentation of how each record will look like, depending on the query |
59 | documentation of how each record will look like, depending on the query |
| 60 | type: |
60 | type: |
| 61 | |
61 | |
| 62 | =over 4 |
62 | =over 4 |
| 63 | |
63 | |
| 64 | =item EV::ADNS::rr_a |
64 | =item EV::ADNS::r_a, EV::ADNS::r_addr |
| 65 | |
65 | |
| 66 | An IPv4 address in dotted quad (string) form. |
66 | An IPv4 address in dotted quad (string) form. |
| 67 | |
67 | |
| 68 | =item EV::ADNS::r_ns_raw, EV::ADNS::r_cname, EV::ADNS::r_ptr, EV::ADNS::r_ptr_raw |
68 | =item EV::ADNS::r_ns_raw, EV::ADNS::r_cname, EV::ADNS::r_ptr, EV::ADNS::r_ptr_raw |
| 69 | |
69 | |
| … | |
… | |
| 143 | |
143 | |
| 144 | use Carp (); |
144 | use Carp (); |
| 145 | use EV (); |
145 | use EV (); |
| 146 | |
146 | |
| 147 | BEGIN { |
147 | BEGIN { |
| 148 | $VERSION = '0.3'; |
148 | $VERSION = '2.1'; |
| 149 | |
149 | |
| 150 | require XSLoader; |
150 | require XSLoader; |
| 151 | XSLoader::load (EV::ADNS, $VERSION); |
151 | XSLoader::load (EV::ADNS, $VERSION); |
| 152 | } |
152 | } |
| 153 | |
153 | |
