Lines Matching refs:self
57 my $self = shift ;
58 close $self->[0] ;
59 select($self->[1]) ;
434 my $self = shift ;
437 $self->SUPER::STORE($key, $value * 2) ;
441 my $self = shift ;
443 $self->SUPER::FETCH($key) - 1 ;
447 my $self = shift ;
450 $self->SUPER::put($key, $value * 3) ;
454 my $self = shift ;
455 $self->SUPER::get($_[0], $_[1]) ;
461 my $self = shift ;
463 my $value = $self->FETCH($key) ;