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