package Tie::HashDefaultValue;
require Tie::Hash;
@ISA = 'Tie::ExtraHash';
use strict;

sub TIEHASH {
  my ($class, $default) = @_;
  return bless [{}, $default], $class;
}

sub FETCH {
  my ($tied, $key) = @_;
  if (exists $tied->[0]{$key}) {
    return $tied->[0]{$key};
  }
  else {
    return $tied->[1];
  }
}

1;