view release on metacpan or  search on metacpan

lib/Net/DNS/Multicast.pm  view on Meta::CPAN

			}
		}

		$select->add($socket);
		$socket->send( $qu, 0, $destaddr );		# unicast
	}
	return $select;
}


sub Net::DNS::Resolver::bgbusy {
	my ( $self, $select ) = @_;
	my ($handle) = ( $select->can_read(0), $select->handles );
	return Net::DNS::Resolver::Base::bgbusy( $self, $handle );
}


sub Net::DNS::Resolver::bgread {
	my ( $self, $select ) = @_;
	my $response;
	foreach my $handle ( $select->can_read(0), $select->handles ) {
		last if $response = Net::DNS::Resolver::Base::bgread( $self, $handle );
	}
	return $response;

t/10-unicast.t  view on Meta::CPAN

ok( $resolver->send(@example), '$resolver->send($unicast)' );


my $handle = $resolver->bgsend(@example);
ok( $handle, '$resolver->bgsend($unicast)' );

my $reply = $resolver->bgread($handle);
ok( $reply, '$resolver->bgread($handle)' );

my $bgbusy = $resolver->bgbusy($handle);
ok( !$bgbusy, '$resolver->bgbusy($handle)' );

my $response = $resolver->bgread($handle);
ok( !$response, '$resolver->bgread($handle)' );


exit;

__END__