File Coverage

blib/lib/File/Slurp/Remote/BrokenDNS.pm

Criterion	Covered	Total	%
statement	15	15	100.0
branch			n/a
condition			n/a
subroutine	5	5	100.0
pod			n/a
total	20	20	100.0

package File::Slurp::Remote::BrokenDNS;

use strict;
use warnings;
use Tie::Function::Examples;
use Socket;
use Sys::Hostname::FQDN qw(fqdn);
require Exporter;

our @ISA = qw(Exporter);
our @EXPORT_OK = qw($myfqdn %fqdnify);
our $VERSION = 0.2;

our %cache;
our $myfqdn;
our %fqdnify;

if ($ENV{BROKEN_DNS_WORKAROUND}) {
	$myfqdn = `hostname`;
	chomp($myfqdn);
	tie %fqdnify, 'Tie::Function::Examples',
		sub {
			my ($host) = @_;
			return $cache{$host} if $cache{$host};
			my $hn = `ssh -o StrictHostKeyChecking=no $host -n hostname`;
			chomp($hn);
			return $cache{$host} = $hn;
		};
} else {
	$myfqdn = fqdn();

	tie %fqdnify, 'Tie::Function::Examples',
		sub {
			my ($host) = @_;
			return $cache{$host} if $cache{$host};
			my $iaddr = gethostbyname($host);
			return $host unless defined $iaddr;
			my $name = gethostbyaddr($iaddr, AF_INET);
			return $host unless defined $name;
			return $cache{$host} = $name;
		};
}

1;

__END__