File Coverage

blib/lib/Socket/GetAddrInfo/Core.pm

Criterion	Covered	Total	%
statement	10	10	100.0
branch	2	2	100.0
condition			n/a
subroutine	4	4	100.0
pod			n/a
total	16	16	100.0

#  You may distribute under the terms of either the GNU General Public License
#  or the Artistic License (the same terms as Perl itself)
#
#  (C) Paul Evans, 2011 -- [e-mail]

package Socket::GetAddrInfo::Core;

use strict;
use warnings;

our $VERSION = '0.22';

# Load the actual code into Socket::GetAddrInfo
package # hide from indexer
  Socket::GetAddrInfo;

BEGIN { die '$Socket::GetAddrInfo::NO_CORE is set' if our $NO_CORE }

use Socket 1.93;
defined &Socket::NIx_NOHOST or die "Core Socket is missing NIx_NOHOST";

our @EXPORT_OK = qw(
   getaddrinfo
   getnameinfo
);

push @EXPORT_OK, grep { m/^AI_|^NI(?:x)?_|^EAI_/ } @Socket::EXPORT_OK;

Socket->import( @EXPORT_OK );

0x55AA;