[catagits/Catalyst-Action-REST.git] / lib / Catalyst / Action / Serialize / JSON / XS.pm

package Catalyst::Action::Serialize::JSON::XS;

use strict;
use warnings;

use base 'Catalyst::Action::Serialize::JSON';
use JSON::XS qw(encode_json);

sub serialize {
    my $self = shift;
    encode_json( shift );
}

1;
Commit	Line	Data
546f2871	1	package Catalyst::Action::Serialize::JSON::XS;
	2
	3	use strict;
	4	use warnings;
	5
	6	use base 'Catalyst::Action::Serialize::JSON';
	7	use JSON::XS qw(encode_json);
	8
485b5160	9	sub serialize {
546f2871	10	my $self = shift;
e9073a60	11	encode_json( shift );
546f2871	12	}
	13
	14	1;