Lines Matching defs:userid
3181 my($userid,$fullname,$email) =
3183 next unless $userid && $fullname && $email;
3186 my $userobj = $CPAN::META->instance('CPAN::Author',$userid);
3192 sub userid {
3285 my($bundle,$id,$userid);
3332 $userid = $id->userid || $self->userid($dist);
3334 'CPAN_USERID' => $userid,
3353 'CPAN_USERID' => $userid,
3957 my $userid = $self->cpan_userid;
3958 unless ($userid) {
3959 CPAN->debug("no userid? self[$self]");
3960 $userid = "anon";
3962 my $pragmatic_dir = $userid . '000';
4142 my $userid = $self->cpan_userid;
4156 "$cvs_dir", $userid, "v$version");
5206 # sub CPAN::Module::userid
5207 sub userid {
5210 return $self->{RO}{userid} || $self->{RO}{CPAN_USERID};
5287 my($userid);
5288 $userid = $self->userid;
5289 if ( $userid ){
5291 if ($author = CPAN::Shell->expand('Author',$userid)) {
5300 $userid,
5432 my $userid = $self->userid;
5433 if ( $userid ) {
5434 if ($CPAN::META->exists("CPAN::Author",$userid)) {
5436 $userid);
5441 $userid,
5446 return "Contact Author $userid (Email address not available)";
6449 cvs -d $cvs_root import -m $cvs_log $cvs_dir $userid v$version
6622 =item CPAN::Module::userid()