X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FCatalyst%2FAction%2FREST.pm;h=ea6a6c8e4d8d2786c008b03a567587b32478bc56;hb=b74200b31daa4a059b0f1555f2d9e079f35d08ff;hp=9c5c86a770ba7ecbedc7e7565f45af70de4d9465;hpb=a08d447bc7896570e721648271c819bd5c438541;p=catagits%2FCatalyst-Action-REST.git diff --git a/lib/Catalyst/Action/REST.pm b/lib/Catalyst/Action/REST.pm index 9c5c86a..ea6a6c8 100644 --- a/lib/Catalyst/Action/REST.pm +++ b/lib/Catalyst/Action/REST.pm @@ -1,5 +1,6 @@ package Catalyst::Action::REST; +use utf8; use Moose; use namespace::autoclean; @@ -10,9 +11,6 @@ use Catalyst::Controller::REST; BEGIN { require 5.008001; } -our $VERSION = '1.04'; -$VERSION = eval $VERSION; - sub BUILDARGS { my $class = shift; my $config = shift; @@ -20,6 +18,8 @@ sub BUILDARGS { return $class->SUPER::BUILDARGS($config, @_); } +=encoding utf-8 + =head1 NAME Catalyst::Action::REST - Automated REST Method Dispatching @@ -157,7 +157,8 @@ sub get_allowed_methods { @{ Class::Inspector->methods($class) } }; $methods->{'HEAD'} = 1 if $methods->{'GET'}; - return keys %$methods; + delete $methods->{'not_implemented'}; + return sort keys %$methods; }; sub _return_options { @@ -253,9 +254,11 @@ Colin Newell Wallace Reis Ewreis@cpan.orgE +André Walker (andrewalker) + =head1 COPYRIGHT -Copyright (c) 2006-2012 the above named AUTHOR and CONTRIBUTORS +Copyright (c) 2006-2015 the above named AUTHOR and CONTRIBUTORS =head1 LICENSE