File Coverage

blib/lib/Tie/File/Indexed/Storable.pm

Criterion	Covered	Total	%
statement	13	13	100.0
branch	4	4	100.0
condition			n/a
subroutine	5	5	100.0
pod	2	2	100.0
total	24	24	100.0

##-*- Mode: CPerl -*-
##
## File: Tie/File/Indexed/Storable.pm
## Author: Bryan Jurish
## Description: tied array access to indexed data files: Storable-encoded references (native byte-order)

package Tie::File::Indexed::Storable;
use Tie::File::Indexed;
use Storable;
use strict;

##======================================================================
## Globals

our @ISA = qw(Tie::File::Indexed);

##======================================================================
## Subclass API: Data I/O: overrides

## $bool = $tfi->writeData($data)
##  + override transparently encodes data using Storable::store_fd()
sub writeData {
  return 1 if (!defined($_[1])); ##-- don't waste space on undef
  return Storable::store_fd($_[1],$_[0]{datfh});
}

## $data_or_undef = $tfi->readData($length)
##  + override transparently decodes data using Storable::retrieve_fd()
sub readData {
  return undef if ($_[1]==0);
  return Storable::retrieve_fd($_[0]{datfh});
}


1; ##-- be happpy