Reference

Apache::Tie(3pm)

Apache::Tie - Tie interfaces to Apache structures

    my $headers_out = $r->headers_out;
    while(my($key,$val) = each %$headers_out) {
    ...
    }

    my $table = $r->headers_out;
    $table->set(From => '[email protected]');

Mod_perl have to be compiled with 'perl Makefile.PL PERL_TIE_TABLES=1' or EVERYTHING=1 for this to work. This module provides tied interfaces to Apache data structures.
CLASSES
The Apache::TieHashTable class provides methods for interfacing with the Apache table structure. The following Apache class methods, when called in a scalar context with no "key" argument, will return a HASH reference blessed into the Apache::TieHashTable class and where HASH is tied to Apache::TieHashTable:

 headers_in
 headers_out
 err_headers_out
 notes
 dir_config
 subprocess_env

METHODS
Corresponds to the ap_table_get function.

    my $value = $table->get($key);

    my $value = $headers_out->{$key};

Corresponds to the ap_table_set function.

    $table->set($key, $value);

    $headers_out->{$key} = $value;

Corresponds to the ap_table_unset function.

    $table->unset($key);

    delete $headers_out->{$key};

Corresponds to the ap_table_clear function.

    $table->clear;

    %$headers_out = ();

Corresponds to the ap_table_add function.

    $table->add($key, $value);

Corresponds to the ap_table_merge function.

    $table->merge($key, $value);

Doug MacEachern Apache(3), mod_perl(3)