Mercurial > pub > Impl

comparison Lib/IMPL/SQL/Schema/Type.pm @ 165:76515373dac0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Added Class::Template, Rewritten SQL::Schema 'use parent' directive instead of 'use base'
author wizard
date Sat, 23 Apr 2011 23:06:48 +0400
parents 16ada169ca75
children 1f7a6d762394
comparison
equal deleted inserted replaced
164:eb3e9861a761 165:76515373dac0
1 use strict; 1 use strict;
2 package IMPL::SQL::Schema::Type; 2 package IMPL::SQL::Schema::Type;
3 use base qw(IMPL::Object IMPL::Object::Autofill); 3 use parent qw(IMPL::Object IMPL::Object::Autofill);
4 use IMPL::Class::Property; 4 use IMPL::Class::Property;
5 use IMPL::Class::Property::Direct; 5 use IMPL::Class::Property::Direct;
6 6
7 BEGIN { 7 BEGIN {
8 public _direct property Name => prop_get; 8 public _direct property name => prop_get;
9 public _direct property MaxLength => prop_get; 9 public _direct property maxLength => prop_get;
10 public _direct property Scale => prop_get; 10 public _direct property scale => prop_get;
11 public _direct property Unsigned => prop_get; 11 public _direct property unsigned => prop_get;
12 public _direct property Zerofill => prop_get; 12 public _direct property zerofill => prop_get;
13 public _direct property Tag => prop_get; 13 public _direct property tag => prop_get;
14 } 14 }
15 15
16 __PACKAGE__->PassThroughArgs; 16 __PACKAGE__->PassThroughArgs;
17 17
18 sub CTOR { 18 sub CTOR {
19 my $this = shift; 19 my $this = shift;
20 20
21 $this->{$Scale} = 0 if not $this->{$Scale}; 21 $this->{$scale} = 0 if not $this->{$scale};
22 } 22 }
23 23
24 sub isEquals { 24 sub isEquals {
25 my ($a,$b) = @_; 25 my ($a,$b) = @_;
26 26
36 } 36 }
37 37
38 sub isSame { 38 sub isSame {
39 my ($this,$other) = @_; 39 my ($this,$other) = @_;
40 40
41 return ($this->{$Name} eq $other->{$Name} and isEquals($this->{$MaxLength},$other->{$MaxLength}) and isEquals($this->{$Scale},$other->{$Scale})); 41 return ($this->{$name} eq $other->{$name} and isEquals($this->{$maxLength},$other->{$maxLength}) and isEquals($this->{$scale},$other->{$scale}));
42 } 42 }
43 43
44 1; 44 1;
45
46 __END__
47
48 =pod
49
50 =head1 NAME
51
52 C<IMPL::SQL::Schema::Type> Описывает SQL типы данных
53
54 =head1 SYNOPSIS
55
56 =begin code
57
58 use IMPL::SQL::Schema::Type;
59
60 my $varchar_t = new IMPL::SQL::Schema::Type( name => 'varchar', maxLength => 255 );
61
62 my $real_t = new IMPL::SQL::Schema::Type( name => 'float', maxLength=> 10, scale => 4); # mysql: float(10,4)
63
64 =end
65
66 Данный класс используется для стандатрного описания SQL типов данных. В зависимости
67 от движка БД эти объекты могут быть представлены различными строковыми представлениями.
68
69 =head1 MEMBERS
70
71 =over
72
73 =item C<CTOR(%props)>
74
75 Конструктор, заполняет объект значениями которые были переданы в конструкторе.
76
77 =item C<[get]name>
78
79 Имя типа. Обязательно.
80
81 =item C<[get]maxLength>
82
83 Максимальная длина, используется только для типов, имеющих длину (либо переменную,
84 либо постоянную).
85
86 =item C<[get]scale>
87
88 Точность, количество знаков после запятой. Используется вместе с C<maxLength>.
89
90 =item C<[get]unsigned>
91
92 Используется с числовыми данными, обозначает беззнаковые типы.
93
94 =item C<[get]zerofill>
95
96 Нестандартный атрибут дополняющий числа лидирующими нулями до C<maxLength>.
97
98 =item C<[get]tag>
99
100 Хеш с дополнительными опциями.
101
102 =back
103
104 =cut