ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/PApp-SQL/SQL.pm
(Generate patch)

Comparing PApp-SQL/SQL.pm (file contents):
Revision 1.24 by root, Thu Apr 11 01:02:10 2002 UTC vs.
Revision 1.31 by root, Wed Jan 28 19:58:19 2004 UTC

… …
44use DBI (); 44use DBI ();
45 45
46BEGIN { 46BEGIN {
47 use base qw(Exporter DynaLoader); 47 use base qw(Exporter DynaLoader);
48 48
49 $VERSION = 0.131; 49 $VERSION = 0.143;
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(
… …
186package-global (and exported) variable C<$sql_exec>. 186package-global (and exported) variable C<$sql_exec>.
187 187
188If any error occurs C<sql_exec> will throw an exception. 188If any error occurs C<sql_exec> will throw an exception.
189 189
190C<sql_uexec> is similar to C<sql_exec> but upgrades all input arguments to 190C<sql_uexec> is similar to C<sql_exec> but upgrades all input arguments to
191utf8 before calling the C<execute> method. 191UTF-8 before calling the C<execute> method.
192 192
193Examples: 193Examples:
194 194
195 # easy one 195 # easy one
196 my $st = sql_exec "select name, id from table where id = ?", $id; 196 my $st = sql_exec "select name, id from table where id = ?", $id;
… …
230 my($name, $amount) = sql_fetch "select ...", args... 230 my($name, $amount) = sql_fetch "select ...", args...
231 231
232... and it's still quite fast unless you fetch large amounts of data. 232... and it's still quite fast unless you fetch large amounts of data.
233 233
234C<sql_ufetch> is similar to C<sql_fetch> but upgrades all input values to 234C<sql_ufetch> is similar to C<sql_fetch> but upgrades all input values to
235utf8 and forces all result values to utf8 (this does I<not> include result 235UTF-8 and forces all result values to UTF-8 (this does I<not> include result
236parameters, only return values. Using bind variables in cinjunction with 236parameters, only return values. Using bind variables in conjunction with
237sql_u* functions results in undefined behaviour). 237sql_u* functions might result in undefined behaviour - we use UTF-8 on
238bind-variables at execution time and it seems to work on DBD::mysql as it
239ignores the UTF-8 bit completely. Which just means that that DBD-driver is
240broken).
238 241
239=item sql_fetchall <see sql_exec> 242=item sql_fetchall <see sql_exec>
240 243
241=item sql_ufetchall <see sql_uexec> 244=item sql_ufetchall <see sql_uexec>
242 245
… …
259 for (sql_fetchall "select name, age, place from user") { 262 for (sql_fetchall "select name, age, place from user") {
260 my ($name, $age, $place) = @$_; 263 my ($name, $age, $place) = @$_;
261 } 264 }
262 265
263C<sql_ufetchall> is similar to C<sql_fetchall> but upgrades all input 266C<sql_ufetchall> is similar to C<sql_fetchall> but upgrades all input
264values to utf8 and forces all result values to utf8 (see the caveats in 267values to UTF-8 and forces all result values to UTF-8 (see the caveats in
265the description of C<sql_ufetch>, though). 268the description of C<sql_ufetch>, though).
266 269
267=item sql_exists "<table_references> where <where_condition>...", args... 270=item sql_exists "<table_references> where <where_condition>...", args...
268 271
269=item sql_uexists <see sql_exists> 272=item sql_uexists <see sql_exists>
… …
273"select * from" were prepended to your statement (it isn't)). Should work 276"select * from" were prepended to your statement (it isn't)). Should work
274with every database but can be quite slow, except on mysql, where this 277with every database but can be quite slow, except on mysql, where this
275should be quite fast. 278should be quite fast.
276 279
277C<sql_uexists> is similar to C<sql_exists> but upgrades all parameters to 280C<sql_uexists> is similar to C<sql_exists> but upgrades all parameters to
278utf8. 281UTF-8.
279 282
280Examples: 283Examples:
281 284
282 print "user 7 exists!\n" 285 print "user 7 exists!\n"
283 if sql_exists "user where id = ?", 7; 286 if sql_exists "user where id = ?", 7;
… …
318 321
319=item [old-size] = cachesize [new-size] 322=item [old-size] = cachesize [new-size]
320 323
321Returns (and possibly changes) the LRU cache size used by C<sql_exec>. The 324Returns (and possibly changes) the LRU cache size used by C<sql_exec>. The
322default is somewhere around 50 (= the 50 last recently used statements 325default is somewhere around 50 (= the 50 last recently used statements
323will be cached). It shouldn't be too large, since a simple linear listed 326will be cached). It shouldn't be too large, since a simple linear list
324is used for the cache at the moment (which, for small (<100) cache sizes 327is used for the cache at the moment (which, for small (<100) cache sizes
325is actually quite fast). 328is actually quite fast).
326 329
327The function always returns the cache size in effect I<before> the call, 330The function always returns the cache size in effect I<before> the call,
328so, to nuke the cache (for example, when a database connection has died 331so, to nuke the cache (for example, when a database connection has died
… …
416 419
417Return the login name. 420Return the login name.
418 421
419=item $db->password 422=item $db->password
420 423
421Return the password (emphasizing the fact that the apssword is stored plaintext ;) 424Return the password (emphasizing the fact that the password is stored plaintext ;)
422 425
423=cut 426=cut
424 427
425sub dsn($) { 428sub dsn($) {
426 my $self = shift; 429 my $self = shift;

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines