File Coverage

blib/lib/Net/SMPP/SSL.pm
Criterion Covered Total %
statement 17 20 85.0
branch 0 2 0.0
condition n/a
subroutine 6 7 85.7
pod 0 1 0.0
total 23 30 76.6


line stmt bran cond sub pod time code
1             package Net::SMPP::SSL;
2 1     1   850 use 5.008001;
  1         4  
3 1     1   11 use strict;
  1         1  
  1         29  
4 1     1   4 use warnings;
  1         2  
  1         39  
5              
6             our $VERSION = "0.02";
7              
8 1     1   2365 use IO::Socket::SSL;
  1         117791  
  1         7  
9 1     1   1315 use Net::SMPP;
  1         34719  
  1         10  
10            
11             our @ISA = ( 'IO::Socket::SSL',
12             grep { $_ ne 'IO::Socket::INET' } @Net::SMPP::ISA );
13            
14             sub isa {
15 0     0 0   my $self = shift;
16 0 0         return 1 if $_[0] eq 'Net::SMPP';
17 0           return $self->SUPER::isa(@_);
18             }
19            
20 1     1   587 no strict 'refs';
  1         3  
  1         172  
21             foreach ( keys %Net::SMPP:: ) {
22             next unless (ref(\$Net::SMPP::{$_}) eq "GLOB" && defined(*{$Net::SMPP::{$_}}{CODE}))
23             || ref(\$Net::SMPP::{$_}) eq "REF";
24             *{$_} = \&{"Net::SMPP::$_"};
25             }
26              
27             1;
28             __END__