SQLSession/Model/Query.pm

use strict;
use warnings;

package SQLSession::Model::Page;
use Jifty::DBI::Schema;
use SQLSession::Model::Database;

use SQLSession::Record schema {
        column name =>
                type is 'text',
                distinct,
                hints is 'Short name of this page',
                mandatory;

        column sql_query =>
                type is 'text',
                label is 'SQL query',
                mandatory,
                distinct,
                hints is 'Use this area to enter SQL query',
                render as 'textarea';
        
        column on_database =>
                refers_to SQLSession::Model::Database by 'name';
};

# Your model-specific methods go here.

1;

1	dpavlin	1	use strict;
2			use warnings;
3
4			package SQLSession::Model::Page;
5			use Jifty::DBI::Schema;
6			use SQLSession::Model::Database;
7
8			use SQLSession::Record schema {
9			column name =>
10			type is 'text',
11			distinct,
12			hints is 'Short name of this page',
13			mandatory;
14
15			column sql_query =>
16			type is 'text',
17			label is 'SQL query',
18			mandatory,
19			distinct,
20			hints is 'Use this area to enter SQL query',
21			render as 'textarea';
22
23			column on_database =>
24			refers_to SQLSession::Model::Database by 'name';
25			};
26
27			# Your model-specific methods go here.
28
29			1;
30