File Coverage

blib/lib/Mail/DeliveryStatus/Report.pm
Criterion Covered Total %
statement 17 17 100.0
branch 2 2 100.0
condition 2 3 66.6
subroutine 6 6 100.0
pod 1 1 100.0
total 28 29 96.5


line stmt bran cond sub pod time code
1             package Mail::DeliveryStatus::Report;
2              
3             our $VERSION = '1.543';
4             $VERSION = eval $VERSION;
5              
6 33     33   261 use Mail::Header;
  33         91  
  33         983  
7 33     33   183 use strict;
  33         79  
  33         782  
8 33     33   178 use warnings;
  33         75  
  33         1257  
9 33     33   198 use vars qw(@ISA);
  33         74  
  33         1638  
10 33     33   4180 BEGIN { @ISA = qw(Mail::Header) };
11              
12             # i just don't like how Mail::Header leaves a \n at the end of everything
13             # meng
14              
15             sub get {
16 2093     2093 1 93470 my $string = $_[0]->SUPER::get($_[1]);
17 2093 100 66     66376 $string = q{} unless defined $string and length $string;
18 2093         7221 $string =~ s/\s+$//s;
19 2093         7999 return $string;
20             }
21              
22             1;