<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;">package Net::SMTP::SSL;
use strict;

our $VERSION = '1.04';

use IO::Socket::SSL;
use Net::SMTP;

our @ISA = ( 'IO::Socket::SSL',
             grep { $_ ne 'IO::Socket::INET' } @Net::SMTP::ISA );

sub isa {
  my $self = shift;
  return 1 if $_[0] eq 'Net::SMTP';
  return $self-&gt;SUPER::isa(@_);
}

no strict 'refs';
foreach ( keys %Net::SMTP:: ) {
    next unless (ref(\$Net::SMTP::{$_}) eq "GLOB" &amp;&amp; defined(*{$Net::SMTP::{$_}}{CODE}))
              || ref(\$Net::SMTP::{$_}) eq "REF";
    *{$_} = \&amp;{"Net::SMTP::$_"};
}

1;

__END__

=head1 NAME

Net::SMTP::SSL - SSL support for Net::SMTP

=head1 SYNOPSIS

  use Net::SMTP::SSL;
  
  my $smtps = Net::SMTP::SSL-&gt;new("example.com", Port =&gt; 465);

=head1 DEPRECATED

B&lt;Hey!  Read this!&gt;

Since Net::SMTP v1.28 (2014-10-08), Net::SMTP itself has support for SMTP over
SSL, and also for STARTTLS.  Use Net::SMTP, not Net::SMTP::SSL.

=head1 DESCRIPTION

Implements the same API as L&lt;Net::SMTP|Net::SMTP&gt;, but uses
L&lt;IO::Socket::SSL|IO::Socket::SSL&gt; for its network operations. Due to
the nature of C&lt;Net::SMTP&gt;'s C&lt;new&gt; method, it is not overridden to make
use of a default port for the SMTPS service. Perhaps future versions
will be smart like that. Port C&lt;465&gt; is usually what you want, and it's
not a pain to specify that.

For interface documentation, please see L&lt;Net::SMTP|Net::SMTP&gt;.

=head1 SEE ALSO

L&lt;Net::SMTP&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>