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