File Coverage

blib/lib/Net/Write/Fast.pm
Criterion Covered Total %
statement 9 9 100.0
branch n/a
condition n/a
subroutine 3 3 100.0
pod n/a
total 12 12 100.0


line stmt bran cond sub pod time code
1             #
2             # $Id: Fast.pm 27 2012-11-10 16:36:33Z gomor $
3             #
4             package Net::Write::Fast;
5 1     1   17724 use strict;
  1         2  
  1         43  
6 1     1   6 use warnings;
  1         2  
  1         45  
7              
8 1     1   5 use base qw(Exporter DynaLoader);
  1         6  
  1         396  
9              
10             our $VERSION = '0.14';
11              
12             __PACKAGE__->bootstrap($VERSION);
13              
14             our %EXPORT_TAGS = (
15             consts => [qw(
16             )],
17             subs => [qw(
18             )],
19             vars => [qw(
20             )],
21             );
22              
23             our @EXPORT_OK = (
24             @{$EXPORT_TAGS{vars}},
25             @{$EXPORT_TAGS{consts}},
26             @{$EXPORT_TAGS{subs}},
27             );
28              
29             1;
30              
31             __END__