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	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