| … | |
… | |
| 8 | |
8 | |
| 9 | my $st = sql_exec $DBH, "select ... where a = ?", $a; |
9 | my $st = sql_exec $DBH, "select ... where a = ?", $a; |
| 10 | |
10 | |
| 11 | local $DBH = <database handle>; |
11 | local $DBH = <database handle>; |
| 12 | my $st = sql_exec \my($bind_a, $bind_b), "select a,b ..."; |
12 | my $st = sql_exec \my($bind_a, $bind_b), "select a,b ..."; |
| 13 | my $st = sql_insertid |
13 | my $id = sql_insertid |
| 14 | sql_exec "insert into ... values (?, ?)", $v1, $v2; |
14 | sql_exec "insert into ... values (?, ?)", $v1, $v2; |
| 15 | my $a = sql_fetch "select a from ..."; |
15 | my $a = sql_fetch "select a from ..."; |
| 16 | sql_fetch \my($a, $b), "select a,b ..."; |
16 | sql_fetch \my($a, $b), "select a,b ..."; |
| 17 | |
17 | |
| 18 | sql_exists "table where name like 'a%'" |
18 | sql_exists "table where name like 'a%'" |
| … | |
… | |
| 44 | use DBI (); |
44 | use DBI (); |
| 45 | |
45 | |
| 46 | BEGIN { |
46 | BEGIN { |
| 47 | use base qw(Exporter DynaLoader); |
47 | use base qw(Exporter DynaLoader); |
| 48 | |
48 | |
| 49 | $VERSION = '1.01'; |
49 | $VERSION = '1.03'; |
| 50 | @EXPORT = qw( |
50 | @EXPORT = qw( |
| 51 | sql_exec sql_fetch sql_fetchall sql_exists sql_insertid $sql_exec |
51 | sql_exec sql_fetch sql_fetchall sql_exists sql_insertid $sql_exec |
| 52 | sql_uexec sql_ufetch sql_ufetchall sql_uexists |
52 | sql_uexec sql_ufetch sql_ufetchall sql_uexists |
| 53 | ); |
53 | ); |
| 54 | @EXPORT_OK = qw( |
54 | @EXPORT_OK = qw( |
| … | |
… | |
| 408 | |
408 | |
| 409 | sub checked_dbh($) { |
409 | sub checked_dbh($) { |
| 410 | my $dbh = $dbcache{$_[0][0]}; |
410 | my $dbh = $dbcache{$_[0][0]}; |
| 411 | $dbh && $dbh->ping |
411 | $dbh && $dbh->ping |
| 412 | ? $dbh |
412 | ? $dbh |
| 413 | : PApp::SQL::connect_cached((split /\x00/, $_[0][0]), $_[0][1], $_[0][2]); |
413 | : PApp::SQL::connect_cached((split /\x00/, $_[0][0], 4), $_[0][1], $_[0][2]); |
| 414 | } |
414 | } |
| 415 | |
415 | |
| 416 | =item $db->dsn |
416 | =item $db->dsn |
| 417 | |
417 | |
| 418 | Return the DSN (L<DBI>) fo the database object (e.g. for error messages). |
418 | Return the DSN (L<DBI>) fo the database object (e.g. for error messages). |
