[OpenSPARC-T2-DV] / tools / perl-5.8.0 / lib / 5.8.0 / Net / Hostname.eg

# This is an example Hostname.pm.

package Sys::Hostname;

use Net::Domain qw(hostname);
use Carp;

require Exporter;
@ISA = qw(Exporter);
@EXPORT = qw(hostname);

carp "deprecated package 'Sys::Hostname', use Net::Domain" if $^W;

1;
Commit	Line	Data
86530b38 AT	1	# This is an example Hostname.pm.
	2
	3	package Sys::Hostname;
	4
	5	use Net::Domain qw(hostname);
	6	use Carp;
	7
	8	require Exporter;
	9	@ISA = qw(Exporter);
	10	@EXPORT = qw(hostname);
	11
	12	carp "deprecated package 'Sys::Hostname', use Net::Domain" if $^W;
	13
	14	1;