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 $db = "$Bin/../ngs.sqlite"; my $dsn = "dbi:SQLite:dbname=$db"; my $dbix = Local::DB->dbix({ dsn => $dsn }); # warn Dumper $dbix; return $dbix; } 1;