1use Test::More tests => 11; 2use_ok('Tie::NetAddr::IP'); 3 4my %WhereIs; 5tie %WhereIs, Tie::NetAddr::IP; 6 7$WhereIs{"0.0.0.0/0"} = "0.0.0.0/0"; 8$WhereIs{"10.0.0.0/8"} = "10.0.0.0/8"; 9$WhereIs{"20.0.0.0/8"} = "20.0.0.0/8"; 10 11is(scalar keys %WhereIs, 3); 12 13while (my($key, $value) = each %WhereIs) 14{ 15 is($key, $value); 16} 17 18delete $WhereIs{"10.0.0.0/8"}; 19 20is(scalar keys %WhereIs, 2); 21 22while (my($key, $value) = each %WhereIs) 23{ 24 is($key, $value); 25} 26 27delete $WhereIs{"20.0.0.0/8"}; 28 29is(scalar keys %WhereIs, 1); 30 31while (my($key, $value) = each %WhereIs) 32{ 33 is($key, $value); 34} 35 36delete $WhereIs{"0.0.0.0/0"}; 37 38is(scalar keys %WhereIs, 0); 39