RSS Git Download  Clone
Raw Blame History
package NGS::DB;

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


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

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

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

	my $db = "$Bin/../ngs.sqlite";
	my $dsn = "dbi:SQLite:dbname=$db";

	my $dbix = LIMS::Local::DBIxSimple->new($dsn); # warn Dumper $dbix;
    return $dbix;
}

1;