File Coverage

blib/lib/Net/SMTP/SSL.pm
Criterion Covered Total %
statement 14 15 93.3
branch 1 2 50.0
condition n/a
subroutine 5 5 100.0
pod 0 1 0.0
total 20 23 86.9


line stmt bran cond sub pod time code
1             package Net::SMTP::SSL;
2 1     1   395 use strict;
  1         2  
  1         33  
3              
4             our $VERSION = '1.04';
5              
6 1     1   712 use IO::Socket::SSL;
  1         62180  
  1         7  
7 1     1   773 use Net::SMTP;
  1         10662  
  1         90  
8              
9             our @ISA = ( 'IO::Socket::SSL',
10             grep { $_ ne 'IO::Socket::INET' } @Net::SMTP::ISA );
11              
12             sub isa {
13 1     1 0 8 my $self = shift;
14 1 50       10 return 1 if $_[0] eq 'Net::SMTP';
15 0           return $self->SUPER::isa(@_);
16             }
17              
18 1     1   6 no strict 'refs';
  1         1  
  1         92  
19             foreach ( keys %Net::SMTP:: ) {
20             next unless (ref(\$Net::SMTP::{$_}) eq "GLOB" && defined(*{$Net::SMTP::{$_}}{CODE}))
21             || ref(\$Net::SMTP::{$_}) eq "REF";
22             *{$_} = \&{"Net::SMTP::$_"};
23             }
24              
25             1;
26              
27             __END__