File: Report.pm

package info (click to toggle)
libmail-deliverystatus-bounceparser-perl 1.542%2Brepacked-1~deb9u1
  • links: PTS, VCS
  • area: main
  • in suites: stretch
  • size: 1,044 kB
  • sloc: perl: 1,684; makefile: 2
file content (22 lines) | stat: -rw-r--r-- 429 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
package Mail::DeliveryStatus::Report;

our $VERSION = '1.542';
$VERSION = eval $VERSION;

use Mail::Header;
use strict;
use warnings;
use vars qw(@ISA);
BEGIN { @ISA = qw(Mail::Header) };

# i just don't like how Mail::Header leaves a \n at the end of everything
# meng

sub get {
  my $string = $_[0]->SUPER::get($_[1]);
  $string = q{} unless defined $string and length $string;
  $string =~ s/\s+$//s;
  return $string;
}

1;