NAME
Blosxom::Header::Proxy
SYNOPSIS
use Blosxom::Header::Proxy;
# Ordinary hash
my $proxy = tie my %proxy => 'Blosxom::Header::Proxy';
my $value = $proxy{Foo}; # same value as $blosxom::header->{Foo}
# Insensitive hash
my $callback = sub { lc shift };
my $proxy = tie my %proxy => 'Blosxom::Header::Proxy', $callback;
my $value = $proxy{Foo}; # same value as $blosxom::header->{foo}
undef $blosxom::header;
my $bool = %proxy; # false
$proxy->header; # throws an exception
$blosxom::header = {};
my $bool = %proxy; # true
my $hashref = $proxy->header; # same reference as $blosxom::header
DESCRIPTION
- $proxy = tie %proxy => 'Blosxom::Header::Proxy', $callback
-
Associates a new hash instance with Blosxom::Header::Proxy. $callback normalizes hash keys passed to %proxy (defaults to
sub { shift }
). - $bool = %proxy
-
A shortcut for
$bool = ref $blosxom::header eq 'HASH';
- $hashref = $proxy->header
-
Returns the same reference as
$blosxom::header
. Ifscalar %proxy
is false, throws an exception.
SEE ALSO
AUTHOR
Ryo Anazawa (anazawa@cpan.org)
LICENSE AND COPYRIGHT
Copyright (c) 2011-2012 Ryo Anazawa. All rights reserved.
This module is free software; you can redistribute it and/or modify it under the same terms as Perl itself. See perlartistic.
This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.