Lines Matching refs:self
67 my $self = shift ;
68 close $self->[0] ;
69 select($self->[1]) ;
435 my $self = shift ;
438 $self->SUPER::STORE($key, $value * 2) ;
442 my $self = shift ;
444 $self->SUPER::FETCH($key) - 1 ;
448 my $self = shift ;
451 $self->SUPER::put($key, $value * 3) ;
455 my $self = shift ;
456 $self->SUPER::get($_[0], $_[1]) ;
462 my $self = shift ;
464 my $value = $self->FETCH($key) ;
511 my $self ;
513 ok(83, $self = tie @h, 'DB_File', $Dfile, O_RDWR|O_CREAT, 0640, $DB_RECNO ) ;
518 ok(84, $FA ? $#h == 3 : $self->length() == 4) ;
519 undef $self ;
525 $self = tie @h, 'DB_File', $Dfile, O_RDWR, 0640, $DB_RECNO ;
526 ok(87, $self)
531 { $self->STORESIZE(4) }
532 ok(88, $FA ? $#h == 3 : $self->length() == 4) ;
533 undef $self ;
539 ok(91, $self = tie @h, 'DB_File', $Dfile, O_RDWR, 0640, $DB_RECNO ) ;
543 { $self->STORESIZE(7) }
544 ok(92, $FA ? $#h == 6 : $self->length() == 7) ;
545 undef $self ;
551 ok(95, $self = tie @h, 'DB_File', $Dfile, O_RDWR, 0640, $DB_RECNO ) ;
555 { $self->STORESIZE(3) }
556 ok(96, $FA ? $#h == 2 : $self->length() == 3) ;
557 undef $self ;