Maypole-2.10.tar.gz

[maypole.git] / lib / Maypole / Headers.pm

diff --git a/lib/Maypole/Headers.pm b/lib/Maypole/Headers.pm
index a72f01c5b712b913a7b876bcf0ebbe7668025c68..dff1ced896ee6b4d5f0c56d4efac5732bd2755fd 100644 (file)
--- 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<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
 
@@ -109,7 +109,7 @@ An alias to C<HTTP::Headers-E<gt>header_field_names>
 
 L<HTTP::Headers>
 
-=head1 AUTHORS
+=head1 AUTHOR
 
 Simon Flack