X-Git-Url: https://git.decadent.org.uk/gitweb/?a=blobdiff_plain;f=lib%2FMaypole%2FHeaders.pm;h=dff1ced896ee6b4d5f0c56d4efac5732bd2755fd;hb=refs%2Ftags%2F2.10;hp=a72f01c5b712b913a7b876bcf0ebbe7668025c68;hpb=f9a6b47b3b916585d710eac141003fb8261d9c3c;p=maypole.git diff --git a/lib/Maypole/Headers.pm b/lib/Maypole/Headers.pm index a72f01c..dff1ced 100644 --- a/lib/Maypole/Headers.pm +++ b/lib/Maypole/Headers.pm @@ -4,7 +4,7 @@ use base 'HTTP::Headers'; use strict; use warnings; -our $VERSION = "1." . sprintf "%04d", q$Rev$ =~ /: (\d+)/; +our $VERSION = "1." . sprintf "%04d", q$Rev: 324 $ =~ /: (\d+)/; sub get { shift->header(shift); @@ -42,7 +42,7 @@ Maypole::Headers - Convenience wrapper around HTTP::Headers 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); @@ -54,11 +54,11 @@ Maypole::Headers - Convenience wrapper around HTTP::Headers A convenience wrapper around C. 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 @@ -109,7 +109,7 @@ An alias to Cheader_field_names> L -=head1 AUTHORS +=head1 AUTHOR Simon Flack