lib/DBIx/Class/DeploymentHandler/Types.pm

   1 package DBIx::Class::DeploymentHandler::Types;
   2
   3 use strict;
   4 use warnings;
   5
   6 # ABSTRACT: Types internal to DBIx::Class::DeploymentHandler
   7
   8 use Moose::Util::TypeConstraints;
   9 subtype 'DBIx::Class::DeploymentHandler::Databases'
  10  => as 'ArrayRef[Str]';
  11
  12 coerce 'DBIx::Class::DeploymentHandler::Databases'
  13  => from 'Str'
  14  => via { [$_] };
  15
  16 subtype 'StrSchemaVersion'
  17  => as 'Str'
  18  => message {
  19   defined $_
  20     ? "Schema version (currently '$_') must be a string"
  21     : 'Schema version must be defined'
  22  };
  23
  24 no Moose::Util::TypeConstraints;
  25 1;
  26
  27 # vim: ts=2 sw=2 expandtab
  28
  29 __END__
  30