File Coverage

blib/lib/POSIX/getpeername.pm
Criterion Covered Total %
statement 15 15 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod n/a
total 20 20 100.0


line stmt bran cond sub pod time code
1             package POSIX::getpeername;
2              
3 3     3   188079 use 5.008005;
  3         12  
  3         122  
4 3     3   16 use strict;
  3         7  
  3         100  
5 3     3   27 use warnings;
  3         5  
  3         103  
6 3     3   18 use base qw/Exporter/;
  3         6  
  3         397  
7              
8             our $VERSION = "0.01";
9             our @EXPORT_OK = qw/_getpeername/;
10              
11 3     3   16 use XSLoader;
  3         5  
  3         160  
12             XSLoader::load(__PACKAGE__, $VERSION);
13              
14             1;
15             __END__