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;
scalar %proxy; # false
$proxy->is_initialized; # false
$blosxom::header = {};
scalar %proxy; # false
$proxy->is_initialized; # true
$blosxom::header = { -type => 'text/html' };
scalar %proxy; # true
$proxy->is_initialized; # true
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' and %{ $blosxom::header };
- $bool = $proxy->is_initialized
-
A shortcut for
$bool = ref $blosxom::header eq 'HASH';
- $hashref = $proxy->header
-
Returns the same reference as $blosxom::header. If
$proxy->is_initialized
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.