Commit | Line | Data |
7ad87df9 |
1 | package Catalyst::Action::Deserialize::Data::Serializer; |
b153f31c |
2 | use Moose; |
3 | extends 'Catalyst::Action'; |
4 | with 'Catalyst::ActionRole::Deserialize'; |
7ad87df9 |
5 | use Data::Serializer; |
b153f31c |
6 | use namespace::clean -except => 'meta'; |
7ad87df9 |
7 | |
b153f31c |
8 | sub deserialize { |
9 | my ($self, $content, $c, $serializer) = @_; |
10 | unless (eval "use $serializer; 1") { |
11 | $c->log->debug("Could not load $serializer, refusing to serialize: $@") |
12 | if $c->debug; |
13 | return 0; |
14 | } |
15 | my $d = Data::Serializer->new(serializer => $serializer); |
16 | return $d->raw_deserialize($content); |
eccb2137 |
17 | } |
7ad87df9 |
18 | |
19 | 1; |