#use diagnostics; use NetAddr::IP::Lite; $| = 1; print "1..12\n"; my $test = 1; sub ok() { print 'ok ',$test++,"\n"; } my $net4 = NetAddr::IP::Lite->new('1.2.3.5/30'); my $net6 = NetAddr::IP::Lite->new('FF::85/126'); my @try = qw( 1.2.3.3 0 1.2.3.4 1 1.2.3.5 1 1.2.3.6 1 1.2.3.7 1 1.2.3.8 0 FF::83 0 FF::84 1 FF::85 1 FF::86 1 FF::87 1 FF::88 0 ); for (my $i=0;$i<@try;$i+=2) { my $ip = NetAddr::IP::Lite->new($try[$i]); my $rv = ($try[$i] =~ /:/) ? $ip->within($net6) : $ip->within($net4); print "got: $rv, exp: $try[$i+1]\nnot " unless $rv == $try[$i+1]; &ok; }