[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 encode {
    my $self = shift;
    encode_json( @_ );
}

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
	9	sub encode {
	10	my $self = shift;
	11	encode_json( @_ );
	12	}
	13
	14	1;