=================================================================== RCS file: /cvs/todotxt/Text-Todo-REST-API/lib/Text/Todo/REST/API/Representations/json.pm,v retrieving revision 1.1 retrieving revision 1.3 diff -u -r1.1 -r1.3 --- todotxt/Text-Todo-REST-API/lib/Text/Todo/REST/API/Representations/json.pm 2010/01/31 04:24:55 1.1 +++ todotxt/Text-Todo-REST-API/lib/Text/Todo/REST/API/Representations/json.pm 2010/01/31 04:32:53 1.3 @@ -1,6 +1,6 @@ package Text::Todo::REST::API::Representations::json; -# $AFresh1: text.pm,v 1.4 2010/01/26 06:03:11 andrew Exp $ +# $AFresh1: json.pm,v 1.2 2010/01/31 04:31:34 andrew Exp $ use base 'Text::Todo::REST::API::Representations'; @@ -13,15 +13,14 @@ use JSON; { - sub content_type { return 'text/plain' } + sub content_type { return 'application/json' } sub can_render { my ( $class, $format ) = @_; return if !defined $format; my %handled_formats = map { $_ => 1 } qw( - text - txt + json ); return exists $handled_formats{$format};