#!perl
BEGIN { require 't/common.pl' }
# create a subclass and do things incrementally
use Test::More tests => 2;
use_ok("Mail::Thread");
package My::Thread;
@ISA = qw(Mail::Thread);
sub _container_class { 'My::Thread::Container' }
sub _finish { }
package My::Thread::Container;
@ISA = qw(Mail::Thread::Container);
our %stuff;
sub new {
my ($class, $id) = @_;
if (!$stuff{$id}) { $stuff{$id} = $class->SUPER::new($id); }
return $stuff{$id};
}
package main;
for (slurp_messages('t/testbox-5')) {
my $threader = new My::Thread($_);
$threader->thread;
}
ok(2, "Completes successfully...");