lib/Net/Hostname.eg

   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;