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;