File Coverage

blib/lib/Data/Message.pm

Criterion	Covered	Total	%
statement	16	16	100.0
branch			n/a
condition			n/a
subroutine	5	5	100.0
pod	2	2	100.0
total	23	23	100.0

use strict;
package Data::Message;
{
  $Data::Message::VERSION = '1.104';
}
# ABSTRACT: parse and build header-and-body messages (kinda like email)

use Email::Simple 1.92;
use base qw[Email::Simple];

my $private = \q[no peeking];

sub new {
    my ($self, $message, %attrs) = @_;
    my $object = $self->SUPER::new($message);
    $object->{"$private"} = \%attrs;
    return $object;
}

sub header_set {
    my $self = shift;
    local $Email::Simple::GROUCHY = $self->{"$private"}->{grouchy};
    return $self->SUPER::header_set(@_);
}

1;

__END__