Lines Matching refs:userid

3180 	my($userid,$fullname,$email) =
3182 	next unless $userid && $fullname && $email;
3185  	my $userobj = $CPAN::META->instance('CPAN::Author',$userid);
3191 sub userid {  subroutine
3284 	my($bundle,$id,$userid);
3331 	    $userid = $id->userid || $self->userid($dist);
3333 		     'CPAN_USERID' => $userid,
3352 				      'CPAN_USERID' => $userid,
3956         my $userid = $self->cpan_userid;
3957         unless ($userid) {
3959             $userid = "anon";
3961         my $pragmatic_dir = $userid . '000';
4141     my $userid = $self->cpan_userid;
4155 	       "$cvs_dir", $userid, "v$version");
5206 sub userid {  subroutine
5209     return $self->{RO}{userid} || $self->{RO}{CPAN_USERID};
5286     my($userid);
5287     $userid = $self->userid;
5288     if ( $userid ){
5290 	if ($author = CPAN::Shell->expand('Author',$userid)) {
5299 			   $userid,
5431         my $userid = $self->userid;
5432         if ( $userid ) {
5433             if ($CPAN::META->exists("CPAN::Author",$userid)) {
5435                                                    $userid);
5440                                    $userid,
5445                 return "Contact Author $userid (Email address not available)";