X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=blobdiff_plain;f=lib%2FCatalyst%2FController.pm;h=cc2da5e8923086dc4257f953014fca7453e95b40;hp=ce68f8e8c19e8746b45dde21b168eaf7d729296a;hb=760d121ecfcc1ad7c28342a6912a472fe30e5fe0;hpb=e5cd6cc061d87d09a29fe67c7c3ab8fc386a5af0

diff --git a/lib/Catalyst/Controller.pm b/lib/Catalyst/Controller.pm
index ce68f8e..cc2da5e 100644
--- a/lib/Catalyst/Controller.pm
+++ b/lib/Catalyst/Controller.pm
@@ -545,6 +545,13 @@ sub _parse_Does_attr {
     return Does => $self->_expand_role_shortname($value);
 }
 
+sub _parse_GET_attr { Method => 'GET' }
+sub _parse_POST_attr { Method => 'POST' }
+sub _parse_PUT_attr { Method => 'PUT' }
+sub _parse_DELETE_attr { Method => 'DELETE' }
+sub _parse_OPTION_attr { Method => 'OPTION' }
+sub _parse_HEAD_attr { Method => 'HEAD' }
+
 sub _expand_role_shortname {
     my ($self, @shortnames) = @_;
     my $app = $self->_application;