X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBM%2FDeep%2FEngine%2FSector%2FNull.pm;h=c755bc82b9d6a636580d631aa2f46c103f1f4008;hb=5ae752e26fb3c00094ed0b12a579780025822728;hp=53aab5e973cd06f8427b5ae5e4422a8b9942dca0;hpb=f0276afb03319e4eb8235ab9e89f54e6b58d7113;p=dbsrgits%2FDBM-Deep.git diff --git a/lib/DBM/Deep/Engine/Sector/Null.pm b/lib/DBM/Deep/Engine/Sector/Null.pm index 53aab5e..c755bc8 100644 --- a/lib/DBM/Deep/Engine/Sector/Null.pm +++ b/lib/DBM/Deep/Engine/Sector/Null.pm @@ -7,6 +7,16 @@ use warnings FATAL => 'all'; use base qw( DBM::Deep::Engine::Sector::Data ); +my $STALE_SIZE = 2; + +# Please refer to the pack() documentation for further information +my %StP = ( + 1 => 'C', # Unsigned char value (no order needed as it's just one byte) + 2 => 'n', # Unsigned short in "network" (big-endian) order + 4 => 'N', # Unsigned long in "network" (big-endian) order + 8 => 'Q', # Usigned quad (no order specified, presumably machine-dependent) +); + sub type { $_[0]{engine}->SIG_NULL } sub data_length { 0 } sub data { return }