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=16646faad9fcd88d58c897b0eb5eb40381b90cd3;hpb=b91bc53de6872ec4b22779382f6955b3af7c6fd5;p=maypole.git diff --git a/lib/Maypole/Headers.pm b/lib/Maypole/Headers.pm index 16646fa..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); @@ -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