| 1 | =head1 NAME |
1 | =head1 NAME |
| 2 | |
2 | |
| 3 | PApp::SQL - absolutely easy yet fast and powerful sql access |
3 | PApp::SQL - absolutely easy yet fast and powerful sql access. |
| 4 | |
4 | |
| 5 | =head1 SYNOPSIS |
5 | =head1 SYNOPSIS |
| 6 | |
6 | |
| 7 | use PApp::SQL; |
7 | use PApp::SQL; |
| 8 | |
8 | |
| … | |
… | |
| 13 | my $st = sql_insertid |
13 | my $st = 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 "name from table where name like 'a%'" |
18 | sql_exists "table where name like 'a%'" |
| 19 | or die "a* required but not existent"; |
19 | or die "a* required but not existent"; |
| 20 | |
20 | |
| 21 | my $db = new PApp::SQL::Database "", "DBI:mysql:test", "user", "pass"; |
21 | my $db = new PApp::SQL::Database "", "DBI:mysql:test", "user", "pass"; |
| 22 | local $PApp::SQL::DBH = $db->checked_dbh; # does 'ping' |
22 | local $PApp::SQL::DBH = $db->checked_dbh; # does 'ping' |
| 23 | |
23 | |
| … | |
… | |
| 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 = 0.1241; |
49 | $VERSION = 0.1242; |
| 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( |
| … | |
… | |
| 123 | Examples: |
123 | Examples: |
| 124 | |
124 | |
| 125 | # try your luck opening the papp database without access info |
125 | # try your luck opening the papp database without access info |
| 126 | $dbh = connect_cached __FILE__, "DBI:mysql:papp"; |
126 | $dbh = connect_cached __FILE__, "DBI:mysql:papp"; |
| 127 | |
127 | |
| 128 | Mysql-specific behaviour: The default setting of mysql_client_found_rows |
128 | Mysql-specific behaviour: The default setting of |
| 129 | is TRUE, you can overwrite this, though. |
129 | C<mysql_client_found_rows> is TRUE, you can overwrite this, though. |
| 130 | |
130 | |
| 131 | =cut |
131 | =cut |
| 132 | |
132 | |
| 133 | sub connect_cached { |
133 | sub connect_cached { |
| 134 | my ($id, $dsn, $user, $pass, $flags, $connect) = @_; |
134 | my ($id, $dsn, $user, $pass, $flags, $connect) = @_; |
| … | |
… | |
| 249 | } |
249 | } |
| 250 | |
250 | |
| 251 | C<sql_ufetchall> is similar to C<sql_fetchall> but upgrades all input |
251 | C<sql_ufetchall> is similar to C<sql_fetchall> but upgrades all input |
| 252 | values to utf8 and forces all result values to utf8. |
252 | values to utf8 and forces all result values to utf8. |
| 253 | |
253 | |
| 254 | =item sql_exists "<table> where ...", args... |
254 | =item sql_exists "<table_references> where <where_condition>...", args... |
| 255 | |
255 | |
| 256 | =item sql_uexists <see sql_exists> |
256 | =item sql_uexists <see sql_exists> |
| 257 | |
257 | |
| 258 | Check wether the result of the sql-statement "select xxx from |
258 | Check wether the result of the sql-statement "select xxx from |
| 259 | $first_argument" would be empty or not (that is, imagine the string |
259 | $first_argument" would be empty or not (that is, imagine the string |
