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 *
#	User	Rev	Content
1	root	1.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;