package TiedMemoize;

# Stuff for caching
use Memoize;
use DB_File;

sub tied_memoize {
  my ($subname) = @_;
  my $filename = "cache/$subname";
  tie my %cache
    => 'DB_File', $filename, O_RDWR|O_CREAT, 0666, $DB_HASH
  or die "Error!";
  memoize $subname,
    SCALAR_CACHE => [HASH => \%cache],
    LIST_CACHE => MERGE;
}

1;