• Files
• Commits
• Log
• Graph
• Stats

package NGS::DB;

use Moo;
use Data::Dumper;
use FindBin qw($Bin);

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

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

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

    my $path_to_db; # needs to work for vcf scripts & web-app scripts
    INC: foreach (@INC) { # warn 'INC:'. $_ . "\n"; # @INC set in .pl script
        if (-e $_ . '/ngs.sqlite') { # warn $_;
            $path_to_db = $_; last INC;
        }
    } # warn 'PATH_TO_DB:'. $path_to_db;

	my $db = $path_to_db . '/ngs.sqlite'; # warn $db;
	my $dsn = "dbi:SQLite:dbname=$db";

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

1;