Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- /root_dir/lib/Mojo_App.pm
- sub startup {
- my $self = shift;
- # Load configuration from hash returned by "my_app.conf"
- my $config = $self->plugin('Config');
- # Router
- my $r = $self->routes;
- # Normal route to controller
- $r->get('/')->to('main#index');
- $r->get('/test')->to('main#test_page');
- #db settings
- my $db_config = {
- db1 => {
- host => 'dbi:Sybase:server=ip01;database=db01',
- user => 'user01',
- pass => 'pass01'
- },
- db2 => {
- host => 'dbi:Sybase:server=ip02;database=db02',
- user => 'user02',
- pass => 'pass02'
- },
- db3 => {
- host => 'dbi:Sybase:server=ip03;database=db03',
- user => 'user03',
- pass => 'pass03'
- }
- };
- #db helper
- my %dbs;
- $self->helper(db => sub {
- use DBIx::Connector;
- my ($self, $db_name) = @_;
- if (exists($db_config->{$db_name})) {
- $dbs{$db_name} = DBIx::Connector->new($db_config->{$db_name}->{host}, $db_config->{$db_name}->{user}, $db_config->{$db_name}->{pass}, {
- RaiseError => 1,
- AutoCommit => 1
- });
- return $dbs{$db_name};
- } else {
- return "db_name not in db_config";
- }
- });
- }
- /root_dir/lib/Controller/Main.pm
- sub index {
- my $self = shift;
- my $dbh = $self->db('db1')->dbh();
- my $test = $dbh->selectall_arrayref('select * from test1', { Slice => {} });
- $self->render();
- }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement