File Coverage

blib/lib/Tie/Hash/Constant.pm

Criterion	Covered	Total	%
statement	12	12	100.0
branch			n/a
condition			n/a
subroutine	5	5	100.0
pod			n/a
total	17	17	100.0

package Tie::Hash::Constant;
use strict;
use warnings;
our $VERSION = 0.01;

=head1 NAME

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

=head1 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"; !!!

=head1 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.

=cut

sub TIEHASH {
    my $class = shift;
    my $constant = shift;
    return bless \$constant, $class;
}

sub FETCH {
    my $self = shift;
    return $$self;
}

sub STORE {}

1;
__END__