20 lines
352 B
Perl
20 lines
352 B
Perl
|
package Shrlbe::DB;
|
||
|
|
use strict;
|
||
|
|
use warnings;
|
||
|
|
use parent qw(Rose::DB);
|
||
|
|
|
||
|
|
|
||
|
|
__PACKAGE__->use_private_registry;
|
||
|
|
|
||
|
|
__PACKAGE__->register_db(
|
||
|
|
domain => 'production',
|
||
|
|
type => 'main',
|
||
|
|
driver => 'sqlite',
|
||
|
|
database => '/home/alpha6/projects/shrl.be/shrl.db',
|
||
|
|
);
|
||
|
|
|
||
|
|
Rose::DB->default_domain('production');
|
||
|
|
Rose::DB->default_type('main');
|
||
|
|
|
||
|
|
1;
|