File Coverage

blib/lib/Net/DNS/Resolver/UNIX.pm

Criterion	Covered	Total	%
statement	20	21	100.0
branch	2	2	100.0
path			n/a
condition			n/a
subroutine	4	4	100.0
pod			n/a
total	26	27	100.0

package Net::DNS::Resolver::UNIX;

use strict;
use warnings;
our $VERSION = (qw$Id: UNIX.pm 2046 2026-06-01 13:23:01Z willem $)[2];


=head1 NAME

Net::DNS::Resolver::UNIX - Unix resolver class

=cut


my @config_file = grep { -f $_ && -r $_ } '/etc/resolv.conf';

my $homedir = $ENV{HOME};
my $dotfile = '.resolv.conf';
my @dotfile = grep { -f $_ && -o $_ } map {"$_/$dotfile"} grep {$_} $homedir, '.';

my ($name) = _nosh(qw(uname -n));
chomp $name;
my ( undef, @domain ) = split /\./, $name, 2;


sub _init {
	my $defaults = shift->_defaults;

	$defaults->domain(@domain);
	$defaults->_read_config_file($_) foreach @config_file;

	%$defaults = Net::DNS::Resolver::Base::_untaint(%$defaults);

	$defaults->_read_config_file($_) foreach @dotfile;

	$defaults->_read_env;
	return;
}

sub _nosh {				## shell-free backtick emulation
	my ( $prog, @arg ) = @_;
	if ( open( PIPE, '-|' ) ) {
		my @retval = ;
		close PIPE;
		return @retval;
	} else {
		$ENV{PATH} = '/bin:/usr/bin';
		exec $prog, @arg;
		exit;			## uncoverable statement
	}
}

1;
__END__