view release on metacpan or  search on metacpan

lib/DBIx/Simple/DataSection.pm  view on Meta::CPAN

    my $self = shift;
    return unless $self->{dbd};
    my $driver_name = $self->{dbd};
    if ( $driver_name eq 'Pg' ) {
        $self->{dbh}->{pg_enable_utf8} = 1;
    }
    elsif ( $driver_name eq 'mysql' ) {
        $self->{dbh}->{mysql_enable_utf8} = 1;
    }
    elsif ( $driver_name eq 'SQLite' ) {
        $self->{dbh}->{unicode} = 1;
    }
}

sub connect {
    my $self = shift->SUPER::connect(@_);
    $self->force_utf8();
    $self->{package} ||= scalar caller(0);
    $self->_init;
    $self;
}