File Coverage

blib/lib/IO/Sockatmark.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             package IO::Sockatmark;
2              
3             require 5.005;
4 1     1   649 use strict;
  1         2  
  1         40  
5              
6             require Exporter;
7             require DynaLoader;
8 1     1   5 use vars qw(@ISA @EXPORT $VERSION);
  1         1  
  1         127  
9              
10             @ISA = qw(Exporter DynaLoader);
11             @EXPORT = qw( sockatmark );
12              
13             $VERSION = '1.00';
14              
15             bootstrap IO::Sockatmark $VERSION;
16              
17             sub IO::Socket::atmark { return sockatmark($_[0]) }
18              
19             1;
20             __END__