File Coverage

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


line stmt bran cond sub pod time code
1             package Mail::DeliveryStatus::Report;
2              
3             our $VERSION = '1.541';
4             $VERSION = eval $VERSION;
5              
6 49     49   336 use Mail::Header;
  49         105  
  49         1284  
7 49     49   248 use strict;
  49         101  
  49         1039  
8 49     49   244 use warnings;
  49         97  
  49         1882  
9 49     49   238 use vars qw(@ISA);
  49         93  
  49         2305  
10 49     49   5451 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 2047     2047 1 35296 my $string = $_[0]->SUPER::get($_[1]);
17 2047 100 100     65816 $string = q{} unless defined $string and length $string;
18 2047         7170 $string =~ s/\s+$//s;
19 2047         9535 return $string;
20             }
21              
22             1;