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   417 use strict;
  1         1  
  1         52  
3              
4             our $VERSION = '1.03';
5              
6 1     1   728 use IO::Socket::SSL;
  1         68514  
  1         7  
7 1     1   750 use Net::SMTP;
  1         9989  
  1         102  
8              
9             our @ISA = ( 'IO::Socket::SSL',
10             grep { $_ ne 'IO::Socket::INET' } @Net::SMTP::ISA );
11              
12             sub isa {
13 1     1 0 18 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   7 no strict 'refs';
  1         1  
  1         81  
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__