1 package # hide from PAUSE
2 DBIx::Class::Admin::Types;
16 use Types::Standard qw/HashRef ArrayRef Str/;
19 class_type Dir, { class => 'Path::Class::Dir' };
20 class_type File, { class => 'Path::Class::File' };
22 coerce Dir, from Str, via { dir($_) };
23 coerce File, from Str, via { file($_) };
33 via { _json_to_data ($_) };
37 via { _json_to_data($_) };
39 subtype DBICConnectInfo,
42 coerce DBICConnectInfo,
43 from Str, via { _json_to_data($_) },
44 from HashRef, via { [ $_ ] };
49 my $json = JSON::Any->new(allow_barekey => 1, allow_singlequote => 1, relaxed=>1);
50 my $ret = $json->jsonToObj($json_str);