1 package # hide from PAUSE
2 DBIx::Class::Admin::Types;
4 use MooseX::Types -declare => [qw(
9 use MooseX::Types::Moose qw/Int HashRef ArrayRef Str Any Bool/;
10 use MooseX::Types::JSON qw(JSON);
20 via { _json_to_data ($_) };
24 via { _json_to_data($_) };
26 subtype DBICConnectInfo,
29 coerce DBICConnectInfo,
31 via { return _json_to_data($_) } ;
33 coerce DBICConnectInfo,
35 via { return _json_to_data($_) };
37 coerce DBICConnectInfo,
43 my $json = JSON::Any->new(allow_barekey => 1, allow_singlequote => 1, relaxed=>1);
44 my $ret = $json->jsonToObj($json_str);