| Subject: | sample code is for Mail::Thread not Email::Thread |
In the following example code you provide, you need to substitute:
$self->message->head->get("Subject")
with
$self->message->header("Subject")
otherwise you aren't running Email::Simple header methods.
sub dump_em {
my ($self, $level) = @_;
debug (' \\-> ' x $level);
if ($self->message) {
print $self->message->head->get("Subject") , "\n";
} else {
print "[ Message $self not available ]\n";
}
dump_em($self->child, $level+1) if $self->child;
dump_em($self->next, $level) if $self->next;
}