point out where in the docs a user is most likely to spend reading time

[dbsrgits/DBIx-Class.git] / lib / DBIx / Class / Admin / Types.pm

diff --git a/lib/DBIx/Class/Admin/Types.pm b/lib/DBIx/Class/Admin/Types.pm
index 10a0a04..c6f37c6 100644 (file)
--- a/lib/DBIx/Class/Admin/Types.pm
+++ b/lib/DBIx/Class/Admin/Types.pm
@@ -1,17 +1,29 @@
 package # hide from PAUSE
     DBIx::Class::Admin::Types;
 
+# Workaround for https://rt.cpan.org/Public/Bug/Display.html?id=83336
+use warnings;
+use strict;
+
 use MooseX::Types -declare => [qw(
     DBICConnectInfo
+    DBICArrayRef
+    DBICHashRef
 )];
 use MooseX::Types::Moose qw/Int HashRef ArrayRef Str Any Bool/;
 use MooseX::Types::JSON qw(JSON);
 
-coerce ArrayRef,
+subtype DBICArrayRef,
+    as ArrayRef;
+
+subtype DBICHashRef,
+    as HashRef;
+
+coerce DBICArrayRef,
   from JSON,
   via { _json_to_data ($_) };
 
-coerce HashRef,
+coerce DBICHashRef,
   from JSON,
   via { _json_to_data($_) };