<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;">#!/usr/bin/perl -w
use strict;
use Test;

use lib '../lib';
use lib 'lib';

use Sys::Hostname::Long;

format STDOUT_TOP =
Method           |Title                            |Result
-----------------|---------------------------------|---------------------------------------
.

my ($method, $title, $ret);

format STDOUT =
@&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;|@&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;|@&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;
$method, $title, $ret
.


$ret = hostname_long();
$method = "AUTOMATIC";
$title = "via " . $Sys::Hostname::Long::lastdispatch;
write;

foreach $method (Sys::Hostname::Long::dispatch_keys()) {
	$title = Sys::Hostname::Long::dispatch_title($method);
	$ret = (Sys::Hostname::Long::dispatcher($method) || ""); 
	write;
}
</pre></body></html>