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.40 by root, Mon Feb 13 05:59:55 2012 UTC vs.
Revision 1.43 by root, Mon Mar 4 06:25:32 2019 UTC

… …
25 25
26=head1 DESCRIPTION 26=head1 DESCRIPTION
27 27
28This module provides you with easy-to-use functions to execute sql 28This module provides you with easy-to-use functions to execute sql
29commands (using DBI). Despite being easy to use, they are also quite 29commands (using DBI). Despite being easy to use, they are also quite
30efficient and allow you to write faster programs in less lines of code. It 30efficient and allow you to write faster programs in fewer lines of
31should work with anything from perl-5.004_01 onwards, but I only support 31code. It should work with anything from perl-5.004_01 onwards, but I only
325.005+. UTF8 handling (the C<sql_u*> family of functions) will only be 32support 5.005+. UTF8 handling (the C<sql_u*> family of functions) will
33effective with perl version 5.006 and beyond. 33only be effective with perl version 5.006 and beyond.
34 34
35If the descriptions here seem terse or if you always wanted to know 35If the descriptions here seem terse or if you always wanted to know
36what PApp is then have a look at the PApp module which uses this module 36what PApp is then have a look at the PApp module which uses this module
37extensively but also provides you with a lot more gimmicks to play around 37extensively but also provides you with a lot more gimmicks to play around
38with to help you create cool applications ;) 38with to help you create cool applications ;)
… …
45use DBI (); 45use DBI ();
46 46
47BEGIN { 47BEGIN {
48 use base qw(Exporter DynaLoader); 48 use base qw(Exporter DynaLoader);
49 49
50 $VERSION = '2.0'; 50 $VERSION = '2.002';
51 @EXPORT = qw( 51 @EXPORT = qw(
52 sql_exec sql_fetch sql_fetchall sql_exists sql_insertid $sql_exec 52 sql_exec sql_fetch sql_fetchall sql_exists sql_insertid $sql_exec
53 sql_uexec sql_ufetch sql_ufetchall sql_uexists 53 sql_uexec sql_ufetch sql_ufetchall sql_uexists
54 ); 54 );
55 @EXPORT_OK = qw( 55 @EXPORT_OK = qw(
… …
101 101
102(not exported by by default) 102(not exported by by default)
103 103
104Connect to the database given by C<($dsn,$user,$pass)>, while using the 104Connect to the database given by C<($dsn,$user,$pass)>, while using the
105flags from C<$flags>. These are just the same arguments as given to 105flags from C<$flags>. These are just the same arguments as given to
106C<DBI->connect>. 106C<< DBI->connect >>.
107 107
108The database handle will be cached under the unique id 108The database handle will be cached under the unique id
109C<$id|$dsn|$user|$pass>. If the same id is requested later, the 109C<$id|$dsn|$user|$pass>. If the same id is requested later, the
110cached handle will be checked (using ping), and the connection will 110cached handle will be checked (using ping), and the connection will
111be re-established if necessary (be sure to prefix your application or 111be re-established if necessary (be sure to prefix your application or
… …
183database handle in C<$PApp::SQL::DBH>, which you can set before calling 183database handle in C<$PApp::SQL::DBH>, which you can set before calling
184these functions. 184these functions.
185 185
186=end comment 186=end comment
187 187
188The actual return value from the C<$sth->execute> call is stored in the 188The actual return value from the C<< $sth->execute >> call is stored in
189package-global (and exported) variable C<$sql_exec>. 189the package-global (and exported) variable C<$sql_exec>.
190 190
191If any error occurs C<sql_exec> will throw an exception. 191If any error occurs C<sql_exec> will throw an exception.
192 192
193C<sql_uexec> is similar to C<sql_exec> but upgrades all input arguments to 193C<sql_uexec> is similar to C<sql_exec> but upgrades all input arguments to
194UTF-8 before calling the C<execute> method. 194UTF-8 before calling the C<execute> method.
… …
298Returns the last automatically created key value. It must be executed 298Returns the last automatically created key value. It must be executed
299directly after executing the insert statement that created it. This is 299directly after executing the insert statement that created it. This is
300what is actually returned for various databases. If your database is 300what is actually returned for various databases. If your database is
301missing, please send me an e-mail on how to implement this ;) 301missing, please send me an e-mail on how to implement this ;)
302 302
303 mariadb: first C<AUTO_INCREMENT> column set to NULL
303 mysql: first C<AUTO_INCREMENT> column set to NULL 304 mysql: first C<AUTO_INCREMENT> column set to NULL
304 postgres: C<oid> column (is there a way to get the last SERIAL?) 305 postgres: C<oid> column (is there a way to get the last SERIAL?)
305 sybase: C<IDENTITY> column of the last insert (slow) 306 sybase: C<IDENTITY> column of the last insert (slow)
306 informix: C<SERIAL> or C<SERIAL8> column of the last insert 307 informix: C<SERIAL> or C<SERIAL8> column of the last insert
307 sqlite: C<last_insert_rowid()> 308 sqlite: C<last_insert_rowid()>
… …
313sub sql_insertid($) { 314sub sql_insertid($) {
314 my $sth = shift or Carp::croak "sql_insertid requires a statement handle"; 315 my $sth = shift or Carp::croak "sql_insertid requires a statement handle";
315 my $dbh = $sth->{Database}; 316 my $dbh = $sth->{Database};
316 my $driver = $dbh->{Driver}{Name}; 317 my $driver = $dbh->{Driver}{Name};
317 318
319 $driver eq "MariaDB" and return $sth->{mariadb_insertid};
318 $driver eq "mysql" and return $sth->{mysql_insertid}; 320 $driver eq "mysql" and return $sth->{mysql_insertid};
319 $driver eq "Pg" and return $sth->{pg_oid_status}; 321 $driver eq "Pg" and return $sth->{pg_oid_status};
320 $driver eq "Sybase" and return sql_fetch ($dbh, 'SELECT @@IDENTITY'); 322 $driver eq "Sybase" and return sql_fetch ($dbh, 'SELECT @@IDENTITY');
321 $driver eq "Informix" and return $sth->{ix_sqlerrd}[1]; 323 $driver eq "Informix" and return $sth->{ix_sqlerrd}[1];
322 $driver eq "SQLite" and return sql_fetch ($dbh, 'SELECT last_insert_rowid ()'); 324 $driver eq "SQLite" and return sql_fetch ($dbh, 'SELECT last_insert_rowid ()');
323 325
324 Carp::croak "sql_insertid does not support the dbd driver '$driver', at"; 326 $dbh->last_insert_id (undef, undef, undef, undef)
325} 327}
326 328
327=item [old-size] = cachesize [new-size] 329=item [old-size] = cachesize [new-size]
328 330
329Returns (and possibly changes) the LRU cache size used by C<sql_exec>. The 331Returns (and possibly changes) the LRU cache size used by C<sql_exec>. The

Diff Legend

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