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',
                is not_null,
                is distinct;

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

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

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

sub since { '0.0.1' }

# Your model-specific methods go here.

sub current_user_can {
        return 1;
}

1;

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	is not_null,
12	is distinct;
13
14	column dsn =>
15	type is 'text',
16	label is 'DBI connection string',
17	hints is 'for PostgreSQL you might try something like: DBI:Pg:dbname=test',
18	is not_null;
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	sub since { '0.0.1' }
30
31	# Your model-specific methods go here.
32
33	sub current_user_can {
34	return 1;
35	}
36
37	1;
38