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

package Net::POP3::SSLWrapper;
use strict;
use warnings;
use parent qw/Net::Cmd IO::Socket::SSL Exporter/;
use 5.008001;
use Net::POP3;

our $VERSION = '0.06';
our @EXPORT = 'pop3s';

my @instances;

sub pop3s(&) { ## no critic.
    my $code = shift;

    local @Net::POP3::ISA = __PACKAGE__;

    $code->();

    undef $_ for @instances;
}

sub new {
    my $class = shift;

    my $self = $class->SUPER::new(@_);
    return if !$self;
    $self->blocking(0); # XXX why need this?
    push @instances, $self;
    return $self;
}

1;
__END__