Gecko [ www.vortexaion.com ]

Windows NT KAMIDAKI 10.0 build 19045 (Windows 10) AMD64
Apache/2.4.58 (Win64) OpenSSL/3.1.3 PHP/8.3.9
Server IP : 192.168.3.16 & Your IP : 216.73.216.140
Domains : Cant Read [ /etc/named.conf ]
User : SISTEMA

Name	Size	Permission	Date
Engine	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
Iterator	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
Sector	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
Storage	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
Array.pm	9.76 KB	-rw-rw-rw-	2018-05-21 02:53
ConfigData.pm	5.38 KB	-rw-rw-rw-	2021-01-24 16:37
Cookbook.pod	6.5 KB	-rw-rw-rw-	2018-05-21 02:53
Engine.pm	11.06 KB	-rw-rw-rw-	2018-05-21 02:53
Hash.pm	3.42 KB	-rw-rw-rw-	2018-05-21 02:53
Internals.pod	11.48 KB	-rw-rw-rw-	2018-05-21 02:53
Iterator.pm	1.18 KB	-rw-rw-rw-	2018-05-21 02:53
Null.pm	1.14 KB	-rw-rw-rw-	2018-05-21 02:53
Sector.pm	617 B	-rw-rw-rw-	2018-05-21 02:53
Storage.pm	1.59 KB	-rw-rw-rw-	2018-05-21 02:53

Rename

package DBM::Deep::Null;

use 5.008_004;

use strict;
use warnings FATAL => 'all';

=head1 NAME

DBM::Deep::Null - NULL object

=head1 PURPOSE

This is an internal-use-only object for L<DBM::Deep>. It acts as a NULL object
in the same vein as MARCEL's L<Class::Null>. I couldn't use L<Class::Null>
because DBM::Deep needed an object that always evaluated as undef, not an
implementation of the Null Class pattern.

=head1 OVERVIEW

It is used to represent null sectors in DBM::Deep.

=cut

use overload
    'bool'   => sub { undef },
    '""'     => sub { undef },
    '0+'     => sub { 0 },
   ('cmp'    => 
    '<=>'    => sub {
                  return 0 if !defined $_[1] || !length $_[1];
                  return $_[2] ? 1 : -1;
                }
   )[0,2,1,2], # same sub for both ops
    '%{}'    => sub {
                  require Carp;
                  Carp::croak("Can't use a stale reference as a HASH");
                },
    '@{}'    => sub {
                  require Carp;
                  Carp::croak("Can't use a stale reference as an ARRAY");
                },
    fallback => 1,
    nomethod => 'AUTOLOAD';

sub AUTOLOAD { return; }

1;
__END__