File Coverage

blib/lib/Email/Thread.pm

Criterion	Covered	Total	%
statement	12	17	70.5
branch			n/a
condition			n/a
subroutine	4	7	57.1
pod			n/a
total	16	24	66.6

use strict;
use warnings;
package Email::Thread;
{
  $Email::Thread::VERSION = '0.712';
}
# ABSTRACT: Use JWZ's mail threading algorithm with Email::Simple objects

use parent 'Mail::Thread';

sub _get_hdr {
    my ($class, $msg, $hdr) = @_;
    $msg->header($hdr);
}

sub _container_class { "Email::Thread::Container" }

package Email::Thread::Container;
{
  $Email::Thread::Container::VERSION = '0.712';
}
use parent -norequire, 'Mail::Thread::Container';

sub header { eval { $_[0]->message->header($_[1]) } }

1;

__END__