minor fixups

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

package # hide from PAUSE
    DBIx::Class::Admin::Types;

use MooseX::Types -declare => [qw(
    DBICConnectInfo
)];
use MooseX::Types::Moose qw/Int HashRef ArrayRef Str Any Bool/;
use MooseX::Types::JSON qw(JSON);

coerce ArrayRef,
  from JSON,
  via { _json_to_data ($_) };

coerce HashRef,
  from JSON,
  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 { [ $_ ] };

sub _json_to_data {
  my ($json_str) = @_;
  my $json = JSON::Any->new(allow_barekey => 1, allow_singlequote => 1, relaxed=>1);
  my $ret = $json->jsonToObj($json_str);
  return $ret;
}

1;