Andrew Sterling Hanenkamp <[EMAIL PROTECTED]> wrote
> use Storable qw(freeze thaw);
> use Tie::HashWrapper;
>
> tie my %wrappee, 'AnyDBM_File', ...;
> tie my %hash, 'Tie::HashWrapper', \%wrappee,
> -inflate_value => sub { thaw(shift) },
> -deflate_value => sub { freeze(shift) };
Or rather more Perlishly
-inflate_value => \&thaw,
-deflate_value => \&freeze };
> $hash{a}{complicated}[4]{data} = [ 'structure' ];
Mike Guy
