| … | |
… | |
| 43 | use DBI (); |
43 | use DBI (); |
| 44 | |
44 | |
| 45 | BEGIN { |
45 | BEGIN { |
| 46 | use base qw(Exporter DynaLoader); |
46 | use base qw(Exporter DynaLoader); |
| 47 | |
47 | |
| 48 | $VERSION = 0.12; |
48 | $VERSION = 0.121; |
| 49 | @EXPORT = qw( |
49 | @EXPORT = qw( |
| 50 | sql_exec sql_fetch sql_fetchall sql_exists sql_insertid $sql_exec |
50 | sql_exec sql_fetch sql_fetchall sql_exists sql_insertid $sql_exec |
| 51 | ); |
51 | ); |
| 52 | @EXPORT_OK = qw( |
52 | @EXPORT_OK = qw( |
| 53 | connect_cached |
53 | connect_cached |
| … | |
… | |
| 228 | |
228 | |
| 229 | =item sql_exists "<table> where ...", args... |
229 | =item sql_exists "<table> where ...", args... |
| 230 | |
230 | |
| 231 | Check wether the result of the sql-statement "select xxx from |
231 | Check wether the result of the sql-statement "select xxx from |
| 232 | $first_argument" would be empty or not (that is, imagine the string |
232 | $first_argument" would be empty or not (that is, imagine the string |
| 233 | "select from" were prepended to your statement (it isn't)). Should work |
233 | "select * from" were prepended to your statement (it isn't)). Should work |
| 234 | with every database but can be quite slow, except on mysql, where this |
234 | with every database but can be quite slow, except on mysql, where this |
| 235 | should be quite fast. |
235 | should be quite fast. |
| 236 | |
236 | |
| 237 | Examples: |
237 | Examples: |
| 238 | |
238 | |
| … | |
… | |
| 299 | =cut |
299 | =cut |
| 300 | |
300 | |
| 301 | sub reinitialize { |
301 | sub reinitialize { |
| 302 | cachesize cachesize 0; |
302 | cachesize cachesize 0; |
| 303 | for (values %dbcache) { |
303 | for (values %dbcache) { |
| 304 | eval { $_->disconnect }; |
304 | eval { $_->{InactiveDestroy} = 1 }; |
| 305 | } |
305 | } |
| 306 | undef %dbcache; |
306 | undef %dbcache; |
| 307 | } |
307 | } |
| 308 | |
308 | |
| 309 | =back |
309 | =back |
