Mercurial > pub > Impl

comparison Lib/IMPL/SQL/Schema/MySQL/EnumType.pm @ 271:56364d0c4b4f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
+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;