package Net::POP3::SSL; # SSL.pm, v 1.0 2007/09/06 use strict; use vars qw[$VERSION @ISA]; $VERSION = sprintf "%d.%02d", split m/\./, (qw$Revision: 1.0 $)[1]; use IO::Socket::SSL; # qw( debug4 ); use Net::POP3; @ISA = ( 'IO::Socket::SSL', grep { $_ ne 'IO::Socket::INET' } @Net::POP3::ISA ); no strict 'refs'; foreach ( keys %Net::POP3:: ) { next unless defined *{"Net::POP3::$_"}{CODE}; *{$_} = \&{"Net::POP3::$_"}; } 1; __END__ =head1 NAME Net::POP3::SSL - SSL support for Net::POP3 =head1 SYNOPSIS use Net::POP3::SSL; my $pops = Net::POP3::SSL->new("example.com", Port => 995); =head1 DESCRIPTION Implements the same API as L, but uses L for its network operations. Due to the nature of C's C method, it is not overridden to make use of a default port for the POP3S service. Perhaps future versions will be smart like that. Port C<995> is usually what you want, and it's not a pain to specify that. Edits by Jeroen Peters Thanks to https://www.perlmonks.org/?node_id=961648, this works for Perl 5.10+ For interface documentation, please see L. =head1 SEE ALSO L, L, L. =head1 AUTHOR Casey West, >. =head1 COPYRIGHT Copyright (c) 2004 Casey West. All rights reserved. This module is free software; you can redistribute it and/or modify it under the same terms as Perl itself. =cut