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


line stmt bran cond sub pod time code
1             ##-*- Mode: CPerl -*-
2             ##
3             ## File: Tie/File/Indexed/Storable.pm
4             ## Author: Bryan Jurish
5             ## Description: tied array access to indexed data files: Storable-encoded references (native byte-order)
6              
7             package Tie::File::Indexed::Storable;
8 2     2   16153 use Tie::File::Indexed;
  2         3  
  2         47  
9 2     2   1101 use Storable;
  2         4657  
  2         94  
10 2     2   10 use strict;
  2         3  
  2         190  
11              
12             ##======================================================================
13             ## Globals
14              
15             our @ISA = qw(Tie::File::Indexed);
16              
17             ##======================================================================
18             ## Subclass API: Data I/O: overrides
19              
20             ## $bool = $tfi->writeData($data)
21             ## + override transparently encodes data using Storable::store_fd()
22             sub writeData {
23 10 100   10 1 17 return 1 if (!defined($_[1])); ##-- don't waste space on undef
24 9         17 return Storable::store_fd($_[1],$_[0]{datfh});
25             }
26              
27             ## $data_or_undef = $tfi->readData($length)
28             ## + override transparently decodes data using Storable::retrieve_fd()
29             sub readData {
30 20 100   20 1 38 return undef if ($_[1]==0);
31 16         28 return Storable::retrieve_fd($_[0]{datfh});
32             }
33              
34              
35             1; ##-- be happpy