File Coverage

blib/lib/CDB_File_Thawed.pm

Criterion	Covered	Total	%
statement	28	31	90.3
branch			n/a
condition			n/a
subroutine	9	10	90.0
pod	1	1	100.0
total	38	42	90.4

package CDB_File_Thawed;
use strict;
use CDB_File;
use Storable qw(thaw);
our @ISA = qw(CDB_File);

sub new {
	my($class, $filename, $tempfile) = @_;
  my $maker = CDB_File->new($filename, $tempfile);
  my $self = { maker => $maker };
  bless $self, 'CDB_File::Maker_Thawed';
  return $self;
}

sub FETCH {
  my($self, $key) = @_;
  my $value = CDB_File::FETCH($self, $key);
  $value = thaw($value);
}

package CDB_File::Maker_Thawed;
use strict;
use CDB_File;
use Storable qw(nfreeze);
our @ISA = qw(CDB_File::Maker);

sub insert {
  my($self, $key, $value) = @_;
  $value = nfreeze($value);
  CDB_File::Maker::insert($self->{maker}, $key, $value);
}

sub finish {
  my($self) = @_;
  CDB_File::Maker::finish($self->{maker});
}

1;

__END__