use strict;
use warnings;
-our $VERSION = "1." . sprintf "%04d", q$Rev$ =~ /: (\d+)/;
+our $VERSION = "1." . sprintf "%04d", q$Rev: 376 $ =~ /: (\d+)/;
sub get {
shift->header(shift);
shift->header(@_);
}
+*add = \&push; # useful for Apache::Session::Wrapper support
+
sub push {
shift->push_header(@_);
}
use Maypole::Headers;
- $r->headers_out(Maypole::Headers->new);
+ $r->headers_out(Maypole::Headers->new); # Note, automatic in Maypole
$r->headers_out->set('Content-Base' => 'http://localhost/maypole');
$r->headers_out->push('Set-Cookie' => $cookie->as_string);
$r->headers_out->push('Set-Cookie' => $cookie2->as_string);
A convenience wrapper around C<HTTP::Headers>. Additional methods are provided
to make the mutators less repetitive and wordy. For example:
- $r->headers->header(Content_Base => $r->config->uri_base);
+ $r->headers_out->header(Content_Base => $r->config->uri_base);
can be written as:
- $r->headers->set(Content_Base => $r->config->uri_base);
+ $r->headers_out->set(Content_Base => $r->config->uri_base);
=head1 METHODS
An alias to C<HTTP::Headers-E<gt>push_header>
+=item add
+
+Alias to C<push> - useful for C<Apache::Session::Wrapper> support, in CGI mode.
+
=item init($header =C<gt> $value)
Set the value for the field named C<$header>, but only if that header is
L<HTTP::Headers>
-=head1 AUTHORS
+=head1 AUTHOR
Simon Flack