view release on metacpan or  search on metacpan

lib/DBIx/Fast.pm  view on Meta::CPAN

      tn     => $args->{tn} // 1,
      db     => $args->{db}  // '',
      dsn    => $args->{dsn} // '',
      driver => $args->{driver} // '',
      quote  => $args->{quote}  // '',
      trace  => $args->{trace}  // '',
      profile => $args->{profile} // '',
      abstract => $args->{abstract} // 1
  };

  $DConf->{DBI}->{mysql_enable_utf8} = 1 if $args->{mysql_enable_utf8};

  $self->_set_args($DConf);

  $self->Q( SQL::Abstract->new ) if $self->args->{abstract};
  
  # No DSN or Host
  unless ( $self->args->{dsn} || $self->args->{db} ) {
      $self->Exception("Need a DSN or Host");
  }