/usr/share/perl5/Email/Thread.pm is in libemail-thread-perl 0.712-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 | 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__
=pod
=head1 NAME
Email::Thread - Use JWZ's mail threading algorithm with Email::Simple objects
=head1 VERSION
version 0.712
=head1 SYNOPSIS
use Email::Thread;
my $threader = Email::Thread->new(@messages);
$threader->thread;
dump_em($_,0) for $threader->rootset;
sub dump_em {
my ($self, $level) = @_;
debug (' \\-> ' x $level);
if ($self->message) {
print $self->message->header("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;
}
=head1 DESCRIPTION
Strictly speaking, this doesn't really need L<Email::Simple> objects.
It just needs an object that responds to the same API. At the time of
writing the list of classes with the Email::Simple API comprises just
Email::Simple.
Due to how it's implemented, its API is an exact clone of
L<Mail::Thread>. Please see that module's documentation for API
details. Just mentally substitute C<Email::Thread> everywhere you see
C<Mail::Thread> and C<Email::Thread::Container> where you see
C<Mail::Thread::Container>.
=head1 THANKS
Simon Cozens (SIMON) for encouraging me to release it, and for
Email::Simple and Mail::Thread.
Richard Clamp (RCLAMP) for the header patch.
=head1 SEE ALSO
L<perl>, L<Mail::Thread>, L<Email::Simple>
=head1 AUTHOR
Iain Truskett <spoon@cpan.org>
=head1 COPYRIGHT AND LICENSE
This software is copyright (c) 2003 by Iain Truskett <spoon@cpan.org>.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
=cut
|