1 package # hide from PAUSE
2 DBIx::Class::Admin::Types;
4 use MooseX::Types -declare => [qw(
7 use MooseX::Types::Moose qw/Int HashRef ArrayRef Str Any Bool/;
8 use MooseX::Types::JSON qw(JSON);
12 via { _json_to_data ($_) };
16 via { _json_to_data($_) };
18 subtype DBICConnectInfo,
21 coerce DBICConnectInfo,
23 via { return _json_to_data($_) } ;
25 coerce DBICConnectInfo,
27 via { return _json_to_data($_) };
29 coerce DBICConnectInfo,
35 my $json = JSON::Any->new(allow_barekey => 1, allow_singlequote => 1, relaxed=>1);
36 my $ret = $json->jsonToObj($json_str);