view release on metacpan or  search on metacpan

lib/Net/POP3/SSLWrapper.pm  view on Meta::CPAN

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 {