File Coverage

blib/lib/Net/POP3/SSLWrapper.pm
Criterion Covered Total %
statement 22 25 88.0
branch 1 2 50.0
condition n/a
subroutine 7 7 100.0
pod 1 2 50.0
total 31 36 86.1


line stmt bran cond sub pod time code
1             package Net::POP3::SSLWrapper;
2 2     2   48363 use strict;
  2         6  
  2         88  
3 2     2   11 use warnings;
  2         5  
  2         74  
4 2     2   1876 use parent qw/Net::Cmd IO::Socket::SSL Exporter/;
  2         664  
  2         13  
5 2     2   220904 use 5.008001;
  2         8  
  2         69  
6 2     2   1079 use Net::POP3;
  2         7208  
  2         383  
7              
8             our $VERSION = '0.06';
9             our @EXPORT = 'pop3s';
10              
11             my @instances;
12              
13             sub pop3s(&) { ## no critic.
14 1     1 0 21 my $code = shift;
15              
16 1         74 local @Net::POP3::ISA = __PACKAGE__;
17              
18 1         7 $code->();
19              
20 1         572 undef $_ for @instances;
21             }
22              
23             sub new {
24 1     1 1 34 my $class = shift;
25              
26 1         48 my $self = $class->SUPER::new(@_);
27 1 50       6769 return if !$self;
28 0           $self->blocking(0); # XXX why need this?
29 0           push @instances, $self;
30 0           return $self;
31             }
32              
33             1;
34             __END__