use strict; use warnings; package Memoize::NDBM_File; our $VERSION = '1.14'; 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> support for L. L, support for C was added to L itself. Code which requires such a perl should simply use L directly. =cut