• Files
• Commits
• Log
• Graph
• Stats

package NGS::DB;

use Moo;
use Data::Dumper;
use Dancer2::FileUtils qw(path);
use FindBin qw($RealBin); # warn $RealBin;

use lib '/home/raj/perl-lib';
use Local::DB;

has dbix => ( is => 'lazy' ); # returns DBIx::Simple object

#-------------------------------------------------------------------------------
sub _build_dbix {
    my $self = shift;

    my $db = path($RealBin, '..', 'ngs.sqlite'); # warn 'DB:'. $db;
	my $dsn = "dbi:SQLite:dbname=$db";

	my $dbix = Local::DB->dbix({ dsn => $dsn }); # warn Dumper $dbix;
    return $dbix;
}

1;