added convinient accessors to C::Request and C::Response

diff --git a/lib/Catalyst/Request.pm b/lib/Catalyst/Request.pm
index 1276fc5..dd38244 100644 (file)
--- a/lib/Catalyst/Request.pm
+++ b/lib/Catalyst/Request.pm
@@ -11,6 +11,13 @@ __PACKAGE__->mk_accessors(
 *args   = \&arguments;
 *params = \&parameters;
 
+sub content_encoding { shift->headers->content_encoding(@_) }
+sub content_length   { shift->headers->content_length(@_)   }
+sub content_type     { shift->headers->content_type(@_)     }
+sub header           { shift->headers->header(@_)           }
+sub referer          { shift->headers->referer(@_)          }
+sub user_agent       { shift->headers->user_agent(@_)       }
+
 =head1 NAME
 
 Catalyst::Request - Catalyst Request Class

diff --git a/lib/Catalyst/Response.pm b/lib/Catalyst/Response.pm
index d22dc3c..1b22e6e 100644 (file)
--- a/lib/Catalyst/Response.pm
+++ b/lib/Catalyst/Response.pm
@@ -5,6 +5,11 @@ use base 'Class::Accessor::Fast';
 
 __PACKAGE__->mk_accessors(qw/cookies headers output redirect status/);
 
+sub content_encoding { shift->headers->content_encoding(@_) }
+sub content_length   { shift->headers->content_length(@_)   }
+sub content_type     { shift->headers->content_type(@_)     }
+sub header           { shift->headers->header(@_)           }
+
 =head1 NAME
 
 Catalyst::Response - Catalyst Response Class