1 package # hide from PAUSE
2 DBIx::Class::Admin::Types;
4 # Workaround for https://rt.cpan.org/Public/Bug/Display.html?id=83336
8 use MooseX::Types -declare => [qw(
13 use MooseX::Types::Moose qw/Int HashRef ArrayRef Str Any Bool/;
14 use MooseX::Types::JSON qw(JSON);
24 via { _json_to_data ($_) };
28 via { _json_to_data($_) };
30 subtype DBICConnectInfo,
33 coerce DBICConnectInfo,
35 via { return _json_to_data($_) } ;
37 coerce DBICConnectInfo,
39 via { return _json_to_data($_) };
41 coerce DBICConnectInfo,
47 my $json = JSON::Any->new(allow_barekey => 1, allow_singlequote => 1, relaxed=>1);
48 my $ret = $json->jsonToObj($json_str);