Mercurial > pub > Impl

comparison lib/IMPL/SQL/Schema/MySQL/EnumType.pm @ 407:c6e90e02dd17 ref20150831

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
renamed Lib->lib
author cin
date Fri, 04 Sep 2015 19:40:23 +0300
parents
children
comparison
equal deleted inserted replaced
406:f23fcb19d3c1 407:c6e90e02dd17
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;