NAME

SQLayer - Interface to DB

SYNOPSIS

use SQLayer;
my $D = SQLayer -> new(database => 'DBI:mysql:database=phorum;host=localhost;port=3306', user => 'user', passowrd => 'somepass');

my $PAllRowsArrayRef = $D -> all_rows("SELECT a, b FROM dum"); # pointer to array

my @AOneColumnArray = $D -> column("SELECT a FROM dum"); # array

$D -> commit; # is equal to $D -> proc("COMMIT");

my $NConnectStatus = $D -> connect_status; # returns 1 if connected

$D -> DEBUG(1);   # warn query only
$D -> DEBUG($n);  # set trace level to $n-1

$D -> enable_transactions; # enable transactions if possible
$D -> errstr; # returns error code

my %HHashNameById = $D -> hash_all("SELECT id, name FROM dum"); #

my $PHashOneByFieldsNameRef = $D -> hash_row("SELECT a, b, c FROM dum WHERE id = '1'"); # pointer to hash

my %HHashOneByFieldsName = $D -> hash_var("SELECT a, b, c FROM dum WHERE id = '1'");  # hash

$D -> nodebug;    # No warn query and clear tracing

$NAffectedRowsNum = $D -> proc("DELETE FROM dum WHERE a = b"); # affected rows

my @AOneRowArray = $D -> row("SELECT a, b, c FROM dum WHERE id = '1'"); # array
my $NVvalue = $D -> row("SELECT a FROM dum WHERE id = '1' "); # one value

my $PRowOfHashRef = $D -> row_hash("SELECT a, b, c FROM dum"); # pointer to array of hashes

$SQuoted = $D -> quote($SSomeVar); # same as DBI method

METHODS

Need to written.

AUTHOR

Written 1999 - 2003 (last change: 08.07.2003 11:16) by
  Andrew Gromozdin (ag@df.ru),
  Sergei Kadurin (ky@sema.ru),
  Andrei V. Shetuhin (stellar@akmosoft.comm.

Please report all bugs to <stellar@akmosoft.com>.

BUGS

Nothing known soon :)

SEE ALSO

perldoc DBI;