#$@%#$%!

Ngiler SH3LL 360
: / proc / thread-self / root / usr / share / perl5 / Memoize /

Information Server
MySQL : OFF Perl : OFF CURL : ON WGET : OFF PKEXEC : OFF

Directive	Local Value
IP Address	162.0.209.101
System	Linux premium169.web-hosting.com 4.18.0-553.50.1.lve.el8.x86_64 #1 SMP Thu Apr 17 19:10:24 UTC 2025 x86_64
User	luxeelil
PHP Version	8.0.30
Software	LiteSpeed
Doc root	Writable

Edit File : SDBM_File.pm \| Size : 1.45 KB
package Memoize::SDBM_File; =head1 NAME Memoize::SDBM_File - glue to provide EXISTS for SDBM_File for Storable use =head1 DESCRIPTION See L<Memoize>. =cut use SDBM_File; @ISA = qw(SDBM_File); $VERSION = '1.03'; $Verbose = 0; sub AUTOLOAD { warn "Nonexistent function $AUTOLOAD invoked in Memoize::SDBM_File\n"; } sub import { warn "Importing Memoize::SDBM_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::SDBM_File EXISTS (@_)\n" if $Verbose; my $self = shift; _backhash($self) unless exists $keylist{$self}; my $r = exists $keylist{$self}{$_[0]}; warn "Memoize::SDBM_File EXISTS (@_) ==> $r\n" if $Verbose; $r; } sub DEFINED { warn "Memoize::SDBM_File DEFINED (@_)\n" if $Verbose; my $self = shift; _backhash($self) unless exists $keylist{$self}; defined $keylist{$self}{$_[0]}; } sub DESTROY { warn "Memoize::SDBM_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::SDBM_File STORE (@_)\n" if $VERBOSE; my $self = shift; $keylist{$self}{$_[0]} = undef; $self->SUPER::STORE(@_); } # Inherit FETCH and TIEHASH 1; Back

Edit File : SDBM_File.pm | Size : 1.45 KB

package Memoize::SDBM_File;

=head1 NAME

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

=head1 DESCRIPTION

See L<Memoize>.

=cut

use SDBM_File;
@ISA = qw(SDBM_File);
$VERSION = '1.03';

$Verbose = 0;

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

sub import {
  warn "Importing Memoize::SDBM_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::SDBM_File EXISTS (@_)\n" if $Verbose;
  my $self = shift;
  _backhash($self)  unless exists $keylist{$self};
  my $r = exists $keylist{$self}{$_[0]};
  warn "Memoize::SDBM_File EXISTS (@_) ==> $r\n" if $Verbose;
  $r;
}

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

sub DESTROY {
  warn "Memoize::SDBM_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::SDBM_File STORE (@_)\n" if $VERBOSE;
  my $self = shift;
  $keylist{$self}{$_[0]} = undef;
  $self->SUPER::STORE(@_);
}

# Inherit FETCH and TIEHASH

Back