package Net::SMTP_auth::SSL;
use strict;

use vars qw[$VERSION @ISA];
$VERSION = 0.0;

use IO::Socket::SSL;
use Net::SMTP_auth;

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

no strict 'refs';
foreach ( keys %Net::SMTP:: ) {
    next unless defined *{$Net::SMTP_auth::{$_}}{CODE};
    *{$_} = \&{"Net::SMTP_auth::$_"};
}

1;