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.542';
4             $VERSION = eval $VERSION;
5              
6 34     34   261 use Mail::Header;
  34         71  
  34         1002  
7 34     34   189 use strict;
  34         84  
  34         726  
8 34     34   178 use warnings;
  34         76  
  34         1235  
9 34     34   166 use vars qw(@ISA);
  34         86  
  34         1699  
10 34     34   3796 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 101233 my $string = $_[0]->SUPER::get($_[1]);
17 2093 100 66     63815 $string = q{} unless defined $string and length $string;
18 2093         6690 $string =~ s/\s+$//s;
19 2093         7567 return $string;
20             }
21              
22             1;