lib/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;
Revision:	1.1
Committed:	Thu Jun 30 14:27:14 2005 UTC (21 years, 3 months ago) by root
Branch:	MAIN
CVS Tags:	PERL-5-8-7, HEAD
Branch point for:	PERL
Log Message:	* empty log message *
#	Content
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;