SQLSession/Model/Database.pm

use strict;
use warnings;

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

use SQLSession::Record schema {
        column name =>
                type is 'text',
                label is 'Name of database',
                mandatory,
                distinct;

        column dsn =>
                type is 'text',
                label is 'DBI connection string',
                hints is 'for PostgreSQL you might try something like: DBI:Pg:dbname=test',
                mandatory;

        column login =>
                type is 'text',
                label is 'database user';

        column passwd =>
                type is 'text',
                label is 'database password';
};

# Your model-specific methods go here.

sub current_user_can {
        return 1;
}

1;

1	dpavlin	1	use strict;
2			use warnings;
3
4			package SQLSession::Model::Database;
5			use Jifty::DBI::Schema;
6
7			use SQLSession::Record schema {
8			column name =>
9			type is 'text',
10			label is 'Name of database',
11			mandatory,
12			distinct;
13
14	dpavlin	2	column dsn =>
15	dpavlin	1	type is 'text',
16			label is 'DBI connection string',
17			hints is 'for PostgreSQL you might try something like: DBI:Pg:dbname=test',
18			mandatory;
19
20			column login =>
21			type is 'text',
22			label is 'database user';
23
24			column passwd =>
25			type is 'text',
26			label is 'database password';
27			};
28
29			# Your model-specific methods go here.
30
31	dpavlin	29	sub current_user_can {
32			return 1;
33			}
34
35	dpavlin	1	1;
36