[dancer-users] Returning JSON Data

[Kadir Beyazlı]

Hi John,

Now my only problem is encoding JSON data.
My data is Turkish, I was setting charset as follow to display correcty

 print $q->header(-content_type => "application/json; charset='utf8');

How will I do it at Dancer2?

I used following 1st and 5th lines but did not solve problem

  1 use Encode;
  2 while (my $branch = $sth_branch->fetchrow_hashref) {

  3  push @$branch_list,
  4    { BranchID => $branch->{BranchID},
  5     Branch   => encode_utf8($branch->{Branch}),
    };
  }

On Sun, Sep 13, 2015 at 8:43 PM, Kadir Beyazlı <kadirbeyazli at gmail.com> wrote:
> Hi John,
>
> Now it is OK me.  I am using as follow
>
>   while (my $branch = $sth_branch->fetchrow_hashref) {
>
>     push @$branch_list,
>       { BranchID => $branch->{BranchID},
>     Branch   => 'ali'
>       };
>   }
>
>   my $result = { total   => scalar(@$branch_list),
>                  branch  => $branch_list,
>                  success => 'true'
>            };
>
>   set serializer => 'JSON';
>   return $result;
>
> If I use
>
> set serializer => 'JSON';
>
> I dont need to use to_json as I understand. This is good for me
>
> I also understood why I dont need to define
>
> use JSON
>
> Because it is already ready for me.
>
> Thanks
>
>
>
> On Sun, Sep 13, 2015 at 8:29 PM, Richard Jones <ra.jones at dpw.clara.co.uk> wrote:
>> On 13/09/2015 17:54, Kadir Beyazlı wrote:
>>>
>>> At Dancer2, when I write below definition :
>>>
>>> use JSON;
>>>
>>> it does not allow with a warning that to_json and from_json functions
>>> are duplicated. I of course know that Dancer2 is using following
>>> definition
>>>
>>> set serializer => 'JSON';
>>>
>>> But I still could not achieve returnin JSON data: Here my route is
>>>
>>> get '/json_branch_list' => sub {
>>>
>>>    my $sth_branch = database->prepare
>>>      (qq(SELECT BranchID,Branch
>>>          FROM branch
>>>          WHERE Deleted=0
>>>         ));
>>>
>>>    $sth_branch->execute || die 'SQL_ERROR';
>>>
>>>    my $branch_list = [];
>>>
>>>    while (my $branch = $sth_branch->fetchrow_hashref) {
>>>
>>>      push @$branch_list,
>>>        { BranchID => $branch->{BranchID},
>>>      Branch   => $branch->{Branch}
>>>        };
>>>    }
>>>
>>>    set serializer => 'JSON';
>>>
>>>     return $branch_list;
>>> };
>>>
>>> No data is displayed
>>>
>>
>> What happens if you do:
>>
>> get '/json_branch_list' => sub {
>>   [...]
>>   my $ref = {
>>     BranchID => $branch->{BranchID},
>>     Branch   => $branch->{Branch}
>>   };
>>   return to_json($ref);
>> }
>>
>> Or even, depending on what is in $branch and what you want to do with it
>> downstream just return the hashref as-is:
>>   return to_json($branch);
>>
>> As far I as I know there is no need for 'use JSON', just 'use Dancer2'.
>> Works for me anyway.
>>
>>
>> --
>> Richard Jones
>>
>> _______________________________________________
>> dancer-users mailing list
>> dancer-users at dancer.pm
>> http://lists.preshweb.co.uk/mailman/listinfo/dancer-users
>
>
>
> --
> Kadir Beyazlı
> Computer Engineer
> GSM : +90 535 821 50 00



-- 
Kadir Beyazlı
Computer Engineer
GSM : +90 535 821 50 00