File Coverage

blib/lib/Socket/GetAddrInfo/XS.pm
Criterion Covered Total %
statement 6 6 100.0
branch n/a
condition n/a
subroutine 2 2 100.0
pod n/a
total 8 8 100.0


line stmt bran cond sub pod time code
1             # You may distribute under the terms of either the GNU General Public License
2             # or the Artistic License (the same terms as Perl itself)
3             #
4             # (C) Paul Evans, 2010-2011 -- leonerd@leonerd.org.uk
5              
6             package Socket::GetAddrInfo::XS;
7              
8 1     1   4 use strict;
  1         10  
  1         28  
9 1     1   5 use warnings;
  1         2  
  1         90  
10              
11             our $VERSION = '0.22';
12              
13             # Load the actual code into Socket::GetAddrInfo
14             package # hide from indexer
15             Socket::GetAddrInfo;
16              
17             our @EXPORT_OK = qw(
18             getaddrinfo
19             getnameinfo
20             );
21              
22             die '$Socket::GetAddrInfo::NO_XS is set' if our $NO_XS;
23              
24             require XSLoader;
25             XSLoader::load( __PACKAGE__, $Socket::GetAddrInfo::XS::VERSION );
26              
27             0x55AA;