/usr/share/perl5/Net/SMTP/SSL.pm is in libnet-smtp-ssl-perl 1.03-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 | package Net::SMTP::SSL;
use strict;
our $VERSION = '1.03';
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->SUPER::isa(@_);
}
no strict 'refs';
foreach ( keys %Net::SMTP:: ) {
next unless (ref(\$Net::SMTP::{$_}) eq "GLOB" && defined(*{$Net::SMTP::{$_}}{CODE}))
|| ref(\$Net::SMTP::{$_}) eq "REF";
*{$_} = \&{"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->new("example.com", Port => 465);
=head1 DESCRIPTION
Implements the same API as L<Net::SMTP|Net::SMTP>, but uses
L<IO::Socket::SSL|IO::Socket::SSL> for its network operations. Due to
the nature of C<Net::SMTP>'s C<new> 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<465> is usually what you want, and it's
not a pain to specify that.
For interface documentation, please see L<Net::SMTP|Net::SMTP>.
=head1 SEE ALSO
L<Net::SMTP>,
L<IO::Socket::SSL>,
L<perl>.
=head1 AUTHOR
Casey West, <F<casey@geeknest.com>>.
=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
|