use Module::Pluggable::Object;
use MRO::Compat;
+our $VERSION = '0.81';
+$VERSION = eval $VERSION;
+
__PACKAGE__->mk_accessors(qw(plugins));
sub execute {
extends 'Catalyst::Action';
use Data::Serializer;
+our $VERSION = '0.81';
+$VERSION = eval $VERSION;
+
sub execute {
my $self = shift;
my ( $controller, $c, $serializer ) = @_;
extends 'Catalyst::Action';
use JSON qw( decode_json );
+our $VERSION = '0.81';
+$VERSION = eval $VERSION;
+
sub execute {
my $self = shift;
my ( $controller, $c, $test ) = @_;
extends 'Catalyst::Action';
+our $VERSION = '0.81';
+$VERSION = eval $VERSION;
+
sub execute {
return 1;
}
extends 'Catalyst::Action';
+our $VERSION = '0.81';
+$VERSION = eval $VERSION;
+
sub execute {
my $self = shift;
my ( $controller, $c, $test ) = @_;
use Module::Pluggable::Object;
use MRO::Compat;
+our $VERSION = '0.81';
+$VERSION = eval $VERSION;
+
sub execute {
my $self = shift;
my ( $controller, $c ) = @_;
extends 'Catalyst::Action';
use Data::Serializer;
+our $VERSION = '0.81';
+$VERSION = eval $VERSION;
+
sub execute {
my $self = shift;
my ( $controller, $c, $serializer ) = @_;
extends 'Catalyst::Action';
use JSON qw(encode_json);
+our $VERSION = '0.81';
+$VERSION = eval $VERSION;
+
sub execute {
my $self = shift;
my ( $controller, $c ) = @_;
extends 'Catalyst::Action::Serialize::JSON';
use JSON::XS qw(encode_json);
+our $VERSION = '0.81';
+$VERSION = eval $VERSION;
+
sub serialize {
my $self = shift;
encode_json( shift );
extends 'Catalyst::Action::Serialize::JSON';
+our $VERSION = '0.81';
+$VERSION = eval $VERSION;
+
after 'execute' => sub {
my $self = shift;
my ($controller, $c) = @_;
extends 'Catalyst::Action';
+our $VERSION = '0.81';
+$VERSION = eval $VERSION;
+
sub execute {
my $self = shift;
my ( $controller, $c ) = @_;
extends 'Catalyst::Action';
use YAML::Syck;
+our $VERSION = '0.81';
+$VERSION = eval $VERSION;
+
sub execute {
my $self = shift;
my ( $controller, $c ) = @_;
use YAML::Syck;
use URI::Find;
+our $VERSION = '0.81';
+$VERSION = eval $VERSION;
+
sub execute {
my $self = shift;
my ( $controller, $c ) = @_;
use Catalyst::Request::REST;
use Catalyst::Utils ();
+our $VERSION = '0.81';
+$VERSION = eval $VERSION;
+
sub new {
my $class = shift;
my $config = shift;
extends 'Catalyst::Request';
with 'Catalyst::TraitFor::Request::REST';
+our $VERSION = '0.81';
+$VERSION = eval $VERSION;
+
# Please don't take this as a recommended way to do things.
# The code below is grotty, badly factored and mostly here for back
# compat..
use namespace::autoclean;
-our $VERSION = '0.80';
+our $VERSION = '0.81';
$VERSION = eval $VERSION;
extends 'Catalyst::Request::REST';
use HTTP::Headers::Util qw(split_header_words);
use namespace::autoclean;
+our $VERSION = '0.81';
+$VERSION = eval $VERSION;
+
has [qw/ data accept_only /] => ( is => 'rw' );
has accepted_content_types => (
with 'Catalyst::TraitFor::Request::REST';
+our $VERSION = '0.81';
+$VERSION = eval $VERSION;
+
has _determined_real_method => (
is => 'rw',
isa => 'Bool',