File Coverage

blib/lib/IO/Stream/MatrixSSL/const.pm
Criterion Covered Total %
statement 24 24 100.0
branch n/a
condition n/a
subroutine 7 7 100.0
pod n/a
total 31 31 100.0


line stmt bran cond sub pod time code
1             ## no critic (Capitalization)
2             package IO::Stream::MatrixSSL::const;
3              
4 4     4   2266 use warnings;
  4         4  
  4         89  
5 4     4   15 use strict;
  4         5  
  4         91  
6              
7 4     4   2770 use version; our $VERSION = qv('1.0.0');
  4         8225  
  4         22  
8              
9             # update DEPENDENCIES in POD & Makefile.PL & README
10              
11             # Timeouts:
12 4     4   359 use constant TOHANDSHAKE => 30;
  4         5  
  4         351  
13              
14             # Custom errors:
15 4     4   20 use constant ETOHANDSHAKE => 'ssl handshake timeout';
  4         6  
  4         191  
16              
17              
18             sub import {
19 4     4   29 my $pkg = caller;
20 4     4   19 no strict 'refs';
  4         6  
  4         307  
21 4         7 for my $const (qw( TOHANDSHAKE ETOHANDSHAKE )) {
22 8         11 *{"${pkg}::$const"} = \&{$const};
  8         27  
  8         17  
23             }
24 4         234 return;
25             }
26              
27              
28             1;