Mercurial > pub > Impl
comparison Lib/IMPL/SQL/Schema/MySQL/EnumType.pm @ 271:56364d0c4b4f
+IMPL::SQL::Schema::MySQL: added basic support for MySQL
author | cin |
---|---|
date | Mon, 28 Jan 2013 02:43:14 +0400 |
parents | |
children |
comparison
equal
deleted
inserted
replaced
270:3f59fd828d5f | 271:56364d0c4b4f |
---|---|
1 package IMPL::SQL::Schema::MySQL::EnumType; | |
2 use strict; | |
3 | |
4 use IMPL::Const qw(:prop); | |
5 use IMPL::declare { | |
6 base => [ | |
7 'IMPL::SQL::Schema::Type' => '@_' | |
8 ], | |
9 props => [ | |
10 enumValues => PROP_RO | PROP_LIST | |
11 ] | |
12 }; | |
13 | |
14 our @ENUM_TYPES = qw(ENUM SET); | |
15 | |
16 sub CTOR { | |
17 my $this = shift; | |
18 | |
19 die ArgException->new(name => "The specified name is invalid", $this->name) | |
20 unless grep uc($this->name) eq $_, @ENUM_TYPES; | |
21 } | |
22 | |
23 1; |