| … | |
… | |
| 2 | |
2 | |
| 3 | EV::ADNS - |
3 | EV::ADNS - |
| 4 | |
4 | |
| 5 | =head1 SYNOPSIS |
5 | =head1 SYNOPSIS |
| 6 | |
6 | |
|
|
7 | use EV; |
| 7 | use EV::ADNS; |
8 | use EV::ADNS; |
| 8 | |
9 | |
| 9 | EV::ADNS::submit "example.com", EV::ADNS::r_a, 0, sub { |
10 | EV::ADNS::submit "example.com", EV::ADNS::r_a, 0, sub { |
| 10 | my ($status, $expires, @a) = @_; |
11 | my ($status, $expires, @a) = @_; |
| 11 | warn $a[0]; # "127.13.166.3" etc. |
12 | warn $a[0]; # "127.13.166.3" etc. |
| 12 | }; |
13 | }; |
|
|
14 | |
|
|
15 | EV::loop; |
| 13 | |
16 | |
| 14 | =head1 DESCRIPTION |
17 | =head1 DESCRIPTION |
| 15 | |
18 | |
| 16 | This is a simple interface to libadns (asynchronous dns) that |
19 | This is a simple interface to libadns (asynchronous dns) that |
| 17 | integrates well and automatically into the EV event loop. The |
20 | integrates well and automatically into the EV event loop. The |
| … | |
… | |
| 140 | |
143 | |
| 141 | use Carp (); |
144 | use Carp (); |
| 142 | use EV (); |
145 | use EV (); |
| 143 | |
146 | |
| 144 | BEGIN { |
147 | BEGIN { |
| 145 | $VERSION = '0.1'; |
148 | $VERSION = '0.2'; |
| 146 | |
149 | |
| 147 | require XSLoader; |
150 | require XSLoader; |
| 148 | XSLoader::load (EV::ADNS, $VERSION); |
151 | XSLoader::load (EV::ADNS, $VERSION); |
| 149 | } |
152 | } |
| 150 | |
153 | |
