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. If scalar %proxy is false, throws an exception.

SEE ALSO

Blosxom::Header, perltie

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.