package # hide from PAUSE
DBIx::Class::Admin::Types;
-use MooseX::Types -declare => [qw(
+use warnings;
+use strict;
+
+use Type::Library
+ -base,
+ -declare => qw(
+ Dir File
DBICConnectInfo
-)];
-use MooseX::Types::Moose qw/Int HashRef ArrayRef Str Any Bool/;
-use MooseX::Types::JSON qw(JSON);
+ DBICArrayRef
+ DBICHashRef
+);
+use Type::Utils -all;
+use Types::Standard qw/HashRef ArrayRef Str/;
+use Path::Class;
+
+class_type Dir, { class => 'Path::Class::Dir' };
+class_type File, { class => 'Path::Class::File' };
+
+coerce Dir, from Str, via { dir($_) };
+coerce File, from Str, via { file($_) };
-coerce ArrayRef,
- from JSON,
+subtype DBICArrayRef,
+ as ArrayRef;
+
+subtype DBICHashRef,
+ as HashRef;
+
+coerce DBICArrayRef,
+ from Str,
via { _json_to_data ($_) };
-coerce HashRef,
- from JSON,
+coerce DBICHashRef,
+ from Str,
via { _json_to_data($_) };
subtype DBICConnectInfo,
as ArrayRef;
coerce DBICConnectInfo,
- from JSON,
- via { return _json_to_data($_) } ;
-
-coerce DBICConnectInfo,
- from Str,
- via { return _json_to_data($_) };
-
-coerce DBICConnectInfo,
- from HashRef,
- via { [ $_ ] };
+ from Str, via { _json_to_data($_) },
+ from HashRef, via { [ $_ ] };
sub _json_to_data {
my ($json_str) = @_;
+ require JSON::Any;
my $json = JSON::Any->new(allow_barekey => 1, allow_singlequote => 1, relaxed=>1);
my $ret = $json->jsonToObj($json_str);
return $ret;