Commit | Line | Data |
41863428 |
1 | package DBIx::Class::DeploymentHandler::Types; |
97aa9a74 |
2 | |
41863428 |
3 | use strict; |
4 | use warnings; |
5 | |
9deabd1f |
6 | # ABSTRACT: Types internal to DBIx::Class::DeploymentHandler |
7 | |
41863428 |
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 { [$_] }; |
41863428 |
15 | |
7ae4c207 |
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; |
41863428 |
25 | 1; |
e52174e3 |
26 | |
27 | # vim: ts=2 sw=2 expandtab |
28 | |
29 | __END__ |
30 | |