swilting:

Hmmm ... many of your subs look like this:

sub from
{
  my ($self, $from) = @_;
  if ($from) {
    $self->add(From => $from);
  }
  $self->add(From => $from);
}
[download]

I don't see why you're doing the last line of each of them. Are you truly intending to call the function once when there's no from address and twice when there is? Additionally, shouldn't you bless your object in your new function? How are these subroutines going to get called if you don't?

...roboticus