<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;">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};
    *{$_} = \&amp;{"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-&gt;new("example.com", Port =&gt; 995);

=head1 DESCRIPTION

Implements the same API as L&lt;Net::POP3|Net::POP3&gt;, but uses
L&lt;IO::Socket::SSL|IO::Socket::SSL&gt; for its network operations. Due to
the nature of C&lt;Net::POP3&gt;'s C&lt;new&gt; 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&lt;995&gt; 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&lt;Net::POP3|Net::POP3&gt;.

=head1 SEE ALSO

L&lt;Net::POP3&gt;,
L&lt;IO::Socket::SSL&gt;,
L&lt;perl&gt;.

=head1 AUTHOR

Casey West, &lt;F&lt;casey@geeknest.com&gt;&gt;.

=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
</pre></body></html>