| |
---|
| | package NetAddr::IP; |
---|
| | |
---|
| | use strict; |
---|
| | #use diagnostics; |
---|
| | use NetAddr::IP::Lite 1.42 qw(Zero Zeros Ones V4mask V4net); |
---|
| | use NetAddr::IP::Lite 1.44 qw(Zero Zeros Ones V4mask V4net); |
---|
| | use NetAddr::IP::Util 1.46 qw( |
---|
| | sub128 |
---|
| | inet_aton |
---|
| | inet_any2n |
---|
| |
---|
| | @EXPORT_FAIL = qw($_netlimit); |
---|
| | |
---|
| | @ISA = qw(Exporter NetAddr::IP::Lite); |
---|
| | |
---|
| | $VERSION = do { sprintf " %d.%03d", (q$Revision: 4.59 $ =~ /\d+/g) }; |
---|
| | $VERSION = do { sprintf " %d.%03d", (q$Revision: 4.61 $ =~ /\d+/g) }; |
---|
| | |
---|
| | =pod |
---|
| | |
---|
| | =head1 NAME |
---|
| |
---|
| | use NetAddr::IP ':aton' |
---|
| | |
---|
| | If called with no arguments, 'default' is assumed. |
---|
| | |
---|
| | If called with an empty string as the argument, returns 'undef' |
---|
| | |
---|
| | C<$addr> can be any of the following and possibly more... |
---|
| | |
---|
| | n.n |
---|
| | n.n/mm |
---|
| |
---|
| | 123456789012 a 'big' bcd number (bigger than perl likes) |
---|
| | and Math::BigInt |
---|
| | |
---|
| | If called with no arguments, 'default' is assumed. |
---|
| | |
---|
| | If called with an empty string as the argument, returns 'undef' |
---|
| | |
---|
| | =item C<-E<gt>broadcast()> |
---|
| | |
---|
| | Returns a new object referring to the broadcast address of a given |
---|
| |
---|
| | |