has +dbh => (
    is => 'lazy',

    # must return only a code ref
    builder => sub {
        DBI->connect( "dbi:CSV:", undef, undef, {
                RaiseError => 1,
                PrintError => 1,
                f_ext      => ".csv/r",

                # Better performance with XS
                csv_class => "Text::CSV_XS",

                # csv_null => 1,
        } ) or die "Cannot connect: $DBI::errstr";
      }
);

##</code><code>##

has base_file => (
    is       => 'rw',
    required => 1,

    #allow external names to be different from class attribute
    init_arg => 'base',
    builder  => sub {
        my $base_fh = IO::File->new( $_[0], '<' ) or die "$_[0]: $!";
        $base_fh->binmode(":utf8");
        return $base_fh;
      }
);