-# returns a 3-element array: name, email, date
-sub author_info {
- my ($class, $mime) = @_;
-
- my $from = $mime->header('From');
- my @from = Email::Address->parse($from);
- my $name = $from[0]->name;
- my $email = $from[0]->address;
- ($name, $email, $mime->header('Date'));
-}
-