package BcsOra;

use strict;
use base 'Mojolicious';

# This method will run once at server start
sub startup {
    my $self = shift;

    # Routes
    my $r = $self->routes;
    $self->plugin(
        'bcs-oracle',
        {   dsn      => 'dbi:Oracle:',
            user     => 'scott',
            password => 'tiger'
        }
    );
    $r->route('/bcsora')->to(
        sub {
            my $self = shift;
            $self->render( 'text' => 'bcs ora text' );
        }
    );
}

1;