gistfile1.pl

package CPAN::Testers::API::ReportNNTP;
use Moose;
use Email::Simple;
use IO::Uncompress::AnyInflate qw(anyinflate $AnyInflateError);

has zarticle => (
    isa      => 'Str',
    is       => 'ro',
    required => 1,
);

sub article {
    my $self = shift;
    my $zarticle = $self->zarticle;
    anyinflate \$zarticle => \(my $article)
      or die "anyinflate failed: $AnyInflateError\n";
    return $article;
}

sub email {
    my $self  = shift;
    my $email = Email::Simple->new($self->article);
    return $email;
}

1;