File Coverage

blib/lib/Net/SMTP/SSL.pm
Criterion Covered Total %
statement 12 12 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod n/a
total 16 16 100.0


line stmt bran cond sub pod time code
1             package Net::SMTP::SSL;
2 1     1   697 use strict;
  1         3  
  1         55  
3              
4             our $VERSION = '1.02';
5              
6 1     1   934 use IO::Socket::SSL;
  1         94129  
  1         8  
7 1     1   672 use Net::SMTP;
  1         9095  
  1         65  
8              
9             our @ISA = ( 'IO::Socket::SSL',
10             grep { $_ ne 'IO::Socket::INET' } @Net::SMTP::ISA );
11              
12 1     1   7 no strict 'refs';
  1         1  
  1         79  
13             foreach ( keys %Net::SMTP:: ) {
14             next unless (ref(\$Net::SMTP::{$_}) eq "GLOB" && defined(*{$Net::SMTP::{$_}}{CODE}))
15             || ref(\$Net::SMTP::{$_}) eq "REF";
16             *{$_} = \&{"Net::SMTP::$_"};
17             }
18              
19             1;
20              
21             __END__