[Summary view] [Print] [Text view]

   1  #
   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;