/usr/share/perl5/Catalyst/Action/Deserialize.pm is in libcatalyst-action-rest-perl 1.17-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 | package Catalyst::Action::Deserialize;
$Catalyst::Action::Deserialize::VERSION = '1.17';
use Moose;
use namespace::autoclean;
extends 'Catalyst::Action::SerializeBase';
use Module::Pluggable::Object;
use MRO::Compat;
use Moose::Util::TypeConstraints;
has plugins => ( is => 'rw' );
has deserialize_http_methods => (
traits => ['Hash'],
isa => do {
my $tc = subtype as 'HashRef[Str]';
coerce $tc, from 'ArrayRef[Str]',
via { +{ map { ($_ => 1) } @$_ } };
$tc;
},
coerce => 1,
builder => '_build_deserialize_http_methods',
handles => {
deserialize_http_methods => 'keys',
_deserialize_handles_http_method => 'exists',
},
);
sub _build_deserialize_http_methods { [qw(POST PUT OPTIONS DELETE)] }
sub execute {
my $self = shift;
my ( $controller, $c ) = @_;
if ( !defined($c->req->data) && $self->_deserialize_handles_http_method($c->request->method) ) {
my ( $sclass, $sarg, $content_type ) =
$self->_load_content_plugins( 'Catalyst::Action::Deserialize',
$controller, $c );
return 1 unless defined($sclass);
my $rc;
if ( defined($sarg) ) {
$rc = $sclass->execute( $controller, $c, $sarg );
} else {
$rc = $sclass->execute( $controller, $c );
}
if ( $rc eq "0" ) {
return $self->unsupported_media_type( $c, $content_type );
} elsif ( $rc ne "1" ) {
return $self->serialize_bad_request( $c, $content_type, $rc );
}
}
$self->maybe::next::method(@_);
return 1;
}
__PACKAGE__->meta->make_immutable;
=head1 NAME
Catalyst::Action::Deserialize - Deserialize Data in a Request
=head1 SYNOPSIS
package Foo::Controller::Bar;
__PACKAGE__->config(
'default' => 'text/x-yaml',
'stash_key' => 'rest',
'map' => {
'text/x-yaml' => 'YAML',
'text/x-data-dumper' => [ 'Data::Serializer', 'Data::Dumper' ],
},
);
sub begin :ActionClass('Deserialize') {}
=head1 DESCRIPTION
This action will deserialize HTTP POST, PUT, OPTIONS and DELETE requests.
It assumes that the body of the HTTP Request is a serialized object.
The serializer is selected by introspecting the requests content-type
header.
If you want deserialize any other HTTP method besides POST, PUT,
OPTIONS and DELETE you can do this by setting the
C<< deserialize_http_methods >> list via C<< action_args >>.
Just modify the config in your controller and define a list of HTTP
methods the deserialization should happen for:
__PACKAGE__->config(
action_args => {
'*' => {
deserialize_http_methods => [qw(POST PUT OPTIONS DELETE GET)]
}
}
);
See also L<Catalyst::Controller/action_args>.
The specifics of deserializing each content-type is implemented as
a plugin to L<Catalyst::Action::Deserialize>. You can see a list
of currently implemented plugins in L<Catalyst::Controller::REST>.
The results of your Deserializing will wind up in $c->req->data.
This is done through the magic of L<Catalyst::Request::REST>.
While it is common for this Action to be called globally as a
C<begin> method, there is nothing stopping you from using it on a
single routine:
sub foo :Local :Action('Deserialize') {}
Will work just fine.
When you use this module, the request class will be changed to
L<Catalyst::Request::REST>.
=head1 CUSTOM ERRORS
For building custom error responses when de-serialization fails, you can create
an ActionRole (and use L<Catalyst::Controller::ActionRole> to apply it to the
C<begin> action) which overrides C<unsupported_media_type> and/or C<_serialize_bad_request>
methods.
=head1 SEE ALSO
You likely want to look at L<Catalyst::Controller::REST>, which implements
a sensible set of defaults for a controller doing REST.
L<Catalyst::Action::Serialize>, L<Catalyst::Action::REST>
=head1 AUTHORS
See L<Catalyst::Action::REST> for authors.
=head1 LICENSE
You may distribute this code under the same terms as Perl itself.
=cut
|