- my $email = $opts{email};
- $email = "<$email>" if defined $email;
- my $who = join ', ', grep defined, $opts{author}, $email, $opts{url};
+ my $author = defined $opts{author} ? $opts{author} : 'unknown hacker';
+ my $email = defined $opts{email} ? "<$opts{email}>" : undef;
+ my $who = join ', ', grep defined, $email, $opts{url};