Lines Matching refs:class
289 my($class) = shift;
297 bless { deps => \@deps }, $class;
316 my $class = shift(@_);
317 # warn "autoload[$autoload] class[$class]";
393 my($class,$s) = @_;
394 my $self = bless { qmod => $s }, $class;
407 my($class,$what) = @_;
419 my $class = shift;
441 my $obj = bless { qmod => $what }, $class;
481 my($mgr,$class) = @_;
483 CPAN->debug("mgr[$mgr] class[$class]") if $CPAN::DEBUG;
485 values %{ $META->{readwrite}{$class} }; # unsafe meta access, ok
636 # not be used any more lightly (or any more heavily :-) than class
673 my($mgr,$class,$id) = @_;
676 ### Carp::croak "exists called without class argument" unless $class;
678 exists $META->{readonly}{$class}{$id} or
679 exists $META->{readwrite}{$class}{$id}; # unsafe meta access, ok
684 my($mgr,$class,$id) = @_;
685 delete $META->{readonly}{$class}{$id}; # unsafe meta access, ok
686 delete $META->{readwrite}{$class}{$id}; # unsafe meta access, ok
785 my($mgr,$class,$id) = @_;
789 return $META->{readwrite}{$class}{$id} if exists $META->{readwrite}{$class}{$id};
790 $META->{readwrite}{$class}{$id} ||= $class->new(ID => $id);
974 my $class = shift;
986 bless $self, $class;
1353 my($class,$about) = @_;
1861 my $class = "CPAN::$type";
1863 CPAN->debug(sprintf "class[%s]regex[%s]command[%s]",
1864 $class,
1872 $CPAN::META->all_objects($class)
1910 $CPAN::META->all_objects($class)
1926 if ($CPAN::META->exists($class,$xarg)) {
1927 $obj = $CPAN::META->instance($class,$xarg);
1928 } elsif ($CPAN::META->exists($class,$arg)) {
1929 $obj = $CPAN::META->instance($class,$arg);
2246 my($class,$host,$dir,$file,$target) = @_;
2247 $class->debug(
2254 $class->debug(qq[Going to login("anonymous","$Config::Config{cf_email}")]);
2264 $class->debug(qq[Going to ->get("$file","$target")\n]) if $CPAN::DEBUG;
2887 my($class) = @_;
2926 }, $class;
3011 my($class, $word) = @_;
3016 sort grep /^\Q$word\E/, map { $_->id } $CPAN::META->all_objects($class);
3064 my($class) = @_;
3066 $class->reload(1);
3367 for my $class (qw(CPAN::Module CPAN::Bundle CPAN::Distribution)) {
3368 for my $o ($CPAN::META->all_objects($class)) {
3370 $CPAN::META->delete($class,$o->{ID});
3371 CPAN->debug("deleting ID[$o->{ID}] in class[$class]")
3466 while(my($class,$v) = each %$cache) {
3467 next unless $class =~ /^CPAN::/;
3468 $CPAN::META->{readonly}{$class} = $v; # unsafe meta access, ok
3470 $CPAN::META->{readwrite}{$class}{$id} ||=
3471 $class->new(ID=>$id, RO=>$ro);
3521 my $class = ref $self;
3534 $CPAN::META->{readonly}{$class}{$self->id} ||= {};
3545 my $class = ref($self);
3546 $class =~ s/^CPAN:://;
3547 push @m, sprintf "%-15s %s\n", $class, $self->{ID};
3555 my $class = ref($self);
3556 $class =~ s/^CPAN:://;
3557 push @m, $class, " id = $self->{ID}\n";
3623 my $class = ref($self);
3624 $class =~ s/^CPAN:://;
3626 $class,
4083 my($class,%att) = @_;
4088 return bless $this, $class;
5251 my $class = ref($self);
5252 $class =~ s/^CPAN:://;
5266 $class,
5279 my $class = ref($self);
5280 $class =~ s/^CPAN:://;
5282 push @m, $class, " id = $self->{ID}\n";
5645 my($class,$read,$write) = @_;
5665 my($class,$read,$write) = @_;
5687 my($class,$read) = @_;
5718 my($class,$file) = @_;
5720 $class->debug("file[$file]");
5724 $ret = bless {GZ => $gz}, $class;
5729 $ret = bless {FH => $fh}, $class;
5783 my($class,$file) = @_;
5808 my $is_compressed = $class->gtest($file);
5879 my($class,$file) = @_;
6080 mentioned four. Each of the four entities is implemented as a class
6206 Although it may be considered internal, the class hierarchy does matter
6240 The first example will be driven by an object of the class
6241 CPAN::Module, the second by an object of class CPAN::Distribution.
6249 There's currently only one class that has a stable interface -
6251 methods of the class CPAN::Shell. Each of the commands that produce