ahuston-0/hydra
1
0
Fork 0
Code Issues Pull Requests 1 Packages Projects Releases Wiki Activity

JSON -> JSON::MaybeXS

Browse Source
This commit is contained in:
Graham Christensen
2021-10-19 22:53:39 -04:00
parent d16c57e5f1
commit 7dcf6a01c6
31 changed files with 57 additions and 57 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/lib/Hydra/Component/ToJSON.pm
View File

@ -5,7 +5,7 @@ use strict;
use warnings;
use base 'DBIx::Class';
use JSON;
use JSON::MaybeXS;
sub TO_JSON {
my $self = shift;
@ -27,7 +27,7 @@ sub TO_JSON {
}
foreach my $column (@{$hint->{boolean_columns}}) {
$json{$column} = $self->get_column($column) ? JSON::true : JSON::false;
$json{$column} = $self->get_column($column) ? JSON::MaybeXS::true : JSON::MaybeXS::false;
}
foreach my $relname (keys %{$hint->{relations}}) {