Mercurial > pub > Impl

comparison _test/Test/ORM/Schema.pm @ 31:d59526f6310e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Small fixes to Test framework (correct handlinf of the compilation errors in the test units) Imported and refactored SQL DB schema from the old project
author Sergey
date Mon, 09 Nov 2009 01:39:16 +0300
parents dd4d72600c69
children d660fb38b7cc
comparison
equal deleted inserted replaced
30:dd4d72600c69 31:d59526f6310e
49 use IMPL::ORM::Helpers qw(Map); 49 use IMPL::ORM::Helpers qw(Map);
50 50
51 BEGIN { 51 BEGIN {
52 public property Id => prop_get, { type => 'String' }; # Field 52 public property Id => prop_get, { type => 'String' }; # Field
53 public property User => prop_get, { type => 'Test::ORM::Schema::Data::User' }; # HasOne 53 public property User => prop_get, { type => 'Test::ORM::Schema::Data::User' }; # HasOne
54 public property Data => prop_all, { type => Map( 'String','String' ) }; # HasOne 54 #public property Data => prop_all, { type => Map( 'String','String' ) }; # HasOne
55 public property AccessTime => prop_get { type => 'DateTime' }; # Field 55 public property AccessTime => prop_get, { type => 'DateTime' }; # Field
56 } 56 }
57 57
58 package Test::ORM::Schema::Data; 58 package Test::ORM::Schema::Data;
59 use base qw(IMPL::ORM::Schema); 59 use base qw(IMPL::ORM::Schema);
60 60
71 User 71 User
72 Role 72 Role
73 Session 73 Session
74 ); 74 );
75 75
76 __PACKAGE__->CompleteSchema;
77
76 1; 78 1;