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,
                label is 'on database',
                mandatory;
};

# Your model-specific methods go here.

1;

1	use strict;
2	use warnings;
3
4	package SQLSession::Model::Query;
5	use Jifty::DBI::Schema;
6	use SQLSession::Model::Database;
7
8	use SQLSession::Record schema {
9	column name =>
10	type is 'text',
11	label is 'Name of query',
12	distinct,
13	hints is 'Short name for this query',
14	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,
26	label is 'on database',
27	mandatory;
28	};
29
30	# Your model-specific methods go here.
31
32	1;
33