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(@_);
}
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