package Tie::Hash::Identity;
use warnings;
use strict;
=head1 NAME
Tie::Hash::Identity - A hash that always returns the key
=head1 VERSION
Version 0.01
=cut
our $VERSION = '0.01';
=head1 SYNOPSIS
use Tie::Hash::Identity;
my %hash;
tie %hash, 'Tie::Hash::Identity';
$hash{abc} eq 'abc'; # true
$hash{1+2+3} eq '6'; # true
=head1 DESCRIPTION
A hash that always returns the key.
It's useful when interpolating EXPR in a double quoted string.
Maybe you should try Hash::Identity with a better importing interface.
It only support for retrieving data. Never storing data back, nor trying to iterate over it.
=cut
sub TIEHASH {
bless {}, $_[0]
}
sub FETCH {
$_[1]
}
=head1 SEE ALSO
L<Hash::Identity> - same thing, with a better importing interface.
=head1 AUTHOR
Cindy Wang (CindyLinz)
=head1 BUGS
Please report any bugs or feature requests to C<bug-tie-hash-identity at rt.cpan.org>, or through
the web interface at L<http://rt.cpan.org/NoAuth/ReportBug.html?Queue=Tie-Hash-Identity>. I will be notified, and then you'll
automatically be notified of progress on your bug as I make changes.
=head1 LICENSE AND COPYRIGHT
Copyright 2010 Cindy Wang (CindyLinz).
This program is free software; you can redistribute it and/or modify it
under the terms of either: the GNU General Public License as published
by the Free Software Foundation; or the Artistic License.
See http://dev.perl.org/licenses/ for more information.
=cut
1; # End of Tie::Hash::Identity