| … | |
… | |
| 35 | |
35 | |
| 36 | BEGIN { |
36 | BEGIN { |
| 37 | *socket_inet_aton = \&Socket::inet_aton; # take a copy, in case Coro::LWP overrides it |
37 | *socket_inet_aton = \&Socket::inet_aton; # take a copy, in case Coro::LWP overrides it |
| 38 | } |
38 | } |
| 39 | |
39 | |
| 40 | our @EXPORT = qw(inet_aton tcp_server tcp_connect); |
40 | our @EXPORT = qw(parse_ipv4 parse_ipv6 parse_ip format_ip inet_aton tcp_server tcp_connect); |
| 41 | |
41 | |
| 42 | our $VERSION = '1.0'; |
42 | our $VERSION = '1.0'; |
| 43 | |
43 | |
| 44 | =item $ipn = parse_ipv4 $dotted_quad |
44 | =item $ipn = parse_ipv4 $dotted_quad |
| 45 | |
45 | |
