NAME

Tie::Hash::Constant - make a hash return a constant for all its members

SYNOPSIS

            

              
              
use Tie::Hash::Constant;
tie my %always_pie, 'Tie::Hash::Constant' => 'PIE!';
$always_pie{food} = "salad";
print "My favourite food is $always_pie{food}\n"; # prints "My favourite food is PIE!"
print "There is no $always_pie{spoon}\n";  # prints "There is no PIE!\n"; !!!
            
          

DESCRIPTION

Tie::Hash::Constant allows you to define a constant to be returned as all values contained within a hash.

It has marginal use as a debugging tool.

AUTHOR

Richard Clamp <richardc@unixbeard.net>

Copyright Richard Clamp 2004. All Rights Reserved.

This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

BUGS

None known.

Bugs should be reported to me via the CPAN RT system. http://rt.cpan.org/NoAuth/ReportBug.html?Queue=Tie::Hash::Constant.

SEE ALSO

Tie::Hash