view release on metacpan or  search on metacpan

lib/DBQuery.pm  view on Meta::CPAN

        };
    }
    bless $self, $class;
    return $self;
}

sub connect
{
    my $self = shift;
    if ($_[0] && $self->{driver} eq 'mysql') {
        $self->{dbh} = DBI->connect($self->{dsn}, $self->{user}, $self->{pass}, {'RaiseError' => 1, 'mysql_enable_utf8' => 1});
    } else {
        $self->{dbh} = DBI->connect($self->{dsn}, $self->{user}, $self->{pass}, {'RaiseError' => 1});
    }

    if ($self->{driver} eq 'mysql') {
        $self->{dbh}->{mysql_auto_reconnect} = $self->{pconnect} ? 1 : 0;
        $self->{dbh}->{mysql_enable_utf8} = $self->{utf8} ? 1 : 0;
        $self->{dbh}->{mysql_no_autocommit_cmd} = $self->{autocommit} ? 0 : 1;
    } elsif ($self->{driver} eq 'Oracle') {
        $self->{dbh}->{LongReadLen} = $self->{LongReadLen};
        $self->{dbh}->{LongTruncOk} = $self->{LongTruncOk};
    }
    return;
}

sub query
{