Lines Matching defs:email
3181 my($userid,$fullname,$email) =
3183 next unless $userid && $fullname && $email;
3187 $userobj->set('FULLNAME' => $fullname, 'EMAIL' => $email);
3563 my $email; # old perls!
3564 if ($email = $CPAN::META->instance("CPAN::Author",
3566 )->email) {
3567 $extra .= " <$email>";
3569 $extra .= " <no email>";
3629 $self->email);
3639 #-> sub CPAN::Author::email ;
3640 sub email { shift->{RO}{EMAIL}; }
5292 my $email = "";
5294 if ($m = $author->email) {
5295 $email = " <$m>";
5301 $author->fullname . $email
5438 my $email = $author->email;
5439 unless (defined $fullname && defined $email) {
5444 return "Contact Author $fullname <$email>";
6352 =item CPAN::Author::email()
6354 Returns the author's email address