Mercurial > pub > Impl

comparison Lib/Schema/DataSource/TypeMapping.pm @ 0:03e58a454b20

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Создан репозитарий
author Sergey
date Tue, 14 Jul 2009 12:54:37 +0400
parents
children 16ada169ca75
comparison
equal deleted inserted replaced
-1:000000000000 0:03e58a454b20
1 use strict;
2 package Schema::DataSource::TypeMapping;
3 use Common;
4 our @ISA = qw(Object);
5
6 BEGIN {
7 DeclareProperty Mappings => ACCESS_NONE;
8 DeclareProperty DBIdentifierType => ACCESS_READ;
9 DeclareProperty DBValueType => ACCESS_READ;
10 }
11
12 sub MapType {
13 my ($this,$Type) = @_;
14
15 if (my $mapped = $this->{$Mappings}->{$Type->Name->Canonical}) {
16 return $mapped;
17 } elsif ($Type->Attributes and $Type->GetAttribute('ValueType')) {
18 return $this->{$DBValueType};
19 } else {
20 return $this->{$DBIdentifierType};
21 }
22 }
23
24 package Schema::DataSource::TypeMapping::Std;
25 use Schema::DB::Type;
26 our @ISA = qw(Schema::DataSource::TypeMapping);
27
28 sub CTOR {
29 my ($this) = @_;
30 $this->SUPER::CTOR(
31 Mappings => {
32 Identifier => new Schema::DB::Type(Name => 'Integer'),
33 String => new Schema::DB::Type(Name => 'varchar', MaxLength => 255),
34 Integer => new Schema::DB::Type(Name => 'Integer'),
35 Float => new Schema::DB::Type(Name => 'Real'),
36 DateTime => new Schema::DB::Type(Name => 'DateTime'),
37 Bool => new Schema::DB::Type(Name => 'Tinyint'),
38 Blob => new Schema::DB::Type(Name => 'Blob'),
39 Text => new Schema::DB::Type(Name => 'Text')
40 },
41 DBIdentifierType => new Schema::DB::Type(Name => 'Integer'),
42 DBValueType => new Schema::DB::Type(Name => 'varchar', MaxLength => 255)
43 );
44 }
45
46 1;