SQLSession/Model/Query.pm

use strict;
use warnings;

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

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