line |
true |
false |
branch |
40
|
0 |
101 |
DBISTATE_INIT; |
71
|
0 |
95 |
ST(0) = dbd_discon_all(drh, imp_drh) ? &PL_sv_yes : &PL_sv_no; |
117
|
50 |
203 |
char *u = (SvOK(username)) ? SvPV(username,lna) : (char*)""; |
|
50 |
0 |
char *u = (SvOK(username)) ? SvPV(username,lna) : (char*)""; |
|
0 |
50 |
char *u = (SvOK(username)) ? SvPV(username,lna) : (char*)""; |
|
203 |
0 |
char *u = (SvOK(username)) ? SvPV(username,lna) : (char*)""; |
118
|
50 |
203 |
char *p = (SvOK(password)) ? SvPV(password,lna) : (char*)""; |
|
50 |
0 |
char *p = (SvOK(password)) ? SvPV(password,lna) : (char*)""; |
|
0 |
50 |
char *p = (SvOK(password)) ? SvPV(password,lna) : (char*)""; |
|
203 |
0 |
char *p = (SvOK(password)) ? SvPV(password,lna) : (char*)""; |
123
|
253 |
0 |
ST(0) = dbd_db_login6(dbh, imp_dbh, SvPV_nolen(dbname), u, p, attribs) ? &PL_sv_yes : &PL_sv_no; |
|
247 |
6 |
ST(0) = dbd_db_login6(dbh, imp_dbh, SvPV_nolen(dbname), u, p, attribs) ? &PL_sv_yes : &PL_sv_no; |
141
|
69 |
253 |
if (items > 2) { |
143
|
47 |
22 |
if (SvROK(attr) && |
|
43 |
4 |
if (SvROK(attr) && |
|
0 |
43 |
if (SvROK(attr) && |
|
0 |
43 |
if (SvROK(attr) && |
|
0 |
43 |
if (SvROK(attr) && |
|
0 |
43 |
if (SvROK(attr) && |
|
0 |
0 |
if (SvROK(attr) && |
|
0 |
0 |
if (SvROK(attr) && |
|
0 |
0 |
if (SvROK(attr) && |
|
0 |
0 |
if (SvROK(attr) && |
144
|
47 |
0 |
(DBD_ATTRIB_TRUE(attr,"Slice",5,tmp_svp) || DBD_ATTRIB_TRUE(attr,"Columns",7,tmp_svp)) |
|
47 |
0 |
(DBD_ATTRIB_TRUE(attr,"Slice",5,tmp_svp) || DBD_ATTRIB_TRUE(attr,"Columns",7,tmp_svp)) |
|
47 |
0 |
(DBD_ATTRIB_TRUE(attr,"Slice",5,tmp_svp) || DBD_ATTRIB_TRUE(attr,"Columns",7,tmp_svp)) |
|
43 |
0 |
(DBD_ATTRIB_TRUE(attr,"Slice",5,tmp_svp) || DBD_ATTRIB_TRUE(attr,"Columns",7,tmp_svp)) |
|
0 |
0 |
(DBD_ATTRIB_TRUE(attr,"Slice",5,tmp_svp) || DBD_ATTRIB_TRUE(attr,"Columns",7,tmp_svp)) |
|
0 |
0 |
(DBD_ATTRIB_TRUE(attr,"Slice",5,tmp_svp) || DBD_ATTRIB_TRUE(attr,"Columns",7,tmp_svp)) |
|
0 |
0 |
(DBD_ATTRIB_TRUE(attr,"Slice",5,tmp_svp) || DBD_ATTRIB_TRUE(attr,"Columns",7,tmp_svp)) |
|
0 |
0 |
(DBD_ATTRIB_TRUE(attr,"Slice",5,tmp_svp) || DBD_ATTRIB_TRUE(attr,"Columns",7,tmp_svp)) |
|
0 |
0 |
(DBD_ATTRIB_TRUE(attr,"Slice",5,tmp_svp) || DBD_ATTRIB_TRUE(attr,"Columns",7,tmp_svp)) |
|
0 |
0 |
(DBD_ATTRIB_TRUE(attr,"Slice",5,tmp_svp) || DBD_ATTRIB_TRUE(attr,"Columns",7,tmp_svp)) |
|
0 |
0 |
(DBD_ATTRIB_TRUE(attr,"Slice",5,tmp_svp) || DBD_ATTRIB_TRUE(attr,"Columns",7,tmp_svp)) |
|
0 |
0 |
(DBD_ATTRIB_TRUE(attr,"Slice",5,tmp_svp) || DBD_ATTRIB_TRUE(attr,"Columns",7,tmp_svp)) |
|
0 |
0 |
(DBD_ATTRIB_TRUE(attr,"Slice",5,tmp_svp) || DBD_ATTRIB_TRUE(attr,"Columns",7,tmp_svp)) |
|
0 |
0 |
(DBD_ATTRIB_TRUE(attr,"Slice",5,tmp_svp) || DBD_ATTRIB_TRUE(attr,"Columns",7,tmp_svp)) |
|
0 |
0 |
(DBD_ATTRIB_TRUE(attr,"Slice",5,tmp_svp) || DBD_ATTRIB_TRUE(attr,"Columns",7,tmp_svp)) |
|
0 |
0 |
(DBD_ATTRIB_TRUE(attr,"Slice",5,tmp_svp) || DBD_ATTRIB_TRUE(attr,"Columns",7,tmp_svp)) |
|
0 |
0 |
(DBD_ATTRIB_TRUE(attr,"Slice",5,tmp_svp) || DBD_ATTRIB_TRUE(attr,"Columns",7,tmp_svp)) |
|
0 |
43 |
(DBD_ATTRIB_TRUE(attr,"Slice",5,tmp_svp) || DBD_ATTRIB_TRUE(attr,"Columns",7,tmp_svp)) |
|
4 |
0 |
(DBD_ATTRIB_TRUE(attr,"Slice",5,tmp_svp) || DBD_ATTRIB_TRUE(attr,"Columns",7,tmp_svp)) |
|
4 |
0 |
(DBD_ATTRIB_TRUE(attr,"Slice",5,tmp_svp) || DBD_ATTRIB_TRUE(attr,"Columns",7,tmp_svp)) |
|
4 |
0 |
(DBD_ATTRIB_TRUE(attr,"Slice",5,tmp_svp) || DBD_ATTRIB_TRUE(attr,"Columns",7,tmp_svp)) |
|
0 |
4 |
(DBD_ATTRIB_TRUE(attr,"Slice",5,tmp_svp) || DBD_ATTRIB_TRUE(attr,"Columns",7,tmp_svp)) |
|
0 |
0 |
(DBD_ATTRIB_TRUE(attr,"Slice",5,tmp_svp) || DBD_ATTRIB_TRUE(attr,"Columns",7,tmp_svp)) |
|
0 |
0 |
(DBD_ATTRIB_TRUE(attr,"Slice",5,tmp_svp) || DBD_ATTRIB_TRUE(attr,"Columns",7,tmp_svp)) |
|
0 |
0 |
(DBD_ATTRIB_TRUE(attr,"Slice",5,tmp_svp) || DBD_ATTRIB_TRUE(attr,"Columns",7,tmp_svp)) |
|
0 |
0 |
(DBD_ATTRIB_TRUE(attr,"Slice",5,tmp_svp) || DBD_ATTRIB_TRUE(attr,"Columns",7,tmp_svp)) |
|
0 |
0 |
(DBD_ATTRIB_TRUE(attr,"Slice",5,tmp_svp) || DBD_ATTRIB_TRUE(attr,"Columns",7,tmp_svp)) |
|
0 |
0 |
(DBD_ATTRIB_TRUE(attr,"Slice",5,tmp_svp) || DBD_ATTRIB_TRUE(attr,"Columns",7,tmp_svp)) |
|
0 |
0 |
(DBD_ATTRIB_TRUE(attr,"Slice",5,tmp_svp) || DBD_ATTRIB_TRUE(attr,"Columns",7,tmp_svp)) |
|
0 |
0 |
(DBD_ATTRIB_TRUE(attr,"Slice",5,tmp_svp) || DBD_ATTRIB_TRUE(attr,"Columns",7,tmp_svp)) |
|
0 |
0 |
(DBD_ATTRIB_TRUE(attr,"Slice",5,tmp_svp) || DBD_ATTRIB_TRUE(attr,"Columns",7,tmp_svp)) |
|
0 |
0 |
(DBD_ATTRIB_TRUE(attr,"Slice",5,tmp_svp) || DBD_ATTRIB_TRUE(attr,"Columns",7,tmp_svp)) |
|
0 |
0 |
(DBD_ATTRIB_TRUE(attr,"Slice",5,tmp_svp) || DBD_ATTRIB_TRUE(attr,"Columns",7,tmp_svp)) |
|
0 |
0 |
(DBD_ATTRIB_TRUE(attr,"Slice",5,tmp_svp) || DBD_ATTRIB_TRUE(attr,"Columns",7,tmp_svp)) |
|
0 |
0 |
(DBD_ATTRIB_TRUE(attr,"Slice",5,tmp_svp) || DBD_ATTRIB_TRUE(attr,"Columns",7,tmp_svp)) |
|
0 |
0 |
(DBD_ATTRIB_TRUE(attr,"Slice",5,tmp_svp) || DBD_ATTRIB_TRUE(attr,"Columns",7,tmp_svp)) |
|
0 |
0 |
(DBD_ATTRIB_TRUE(attr,"Slice",5,tmp_svp) || DBD_ATTRIB_TRUE(attr,"Columns",7,tmp_svp)) |
154
|
0 |
279 |
if (SvROK(ST(1))) { |
158
|
0 |
0 |
if ( (mg = mg_find(SvRV(sth),'P')) ) |
164
|
0 |
279 |
if (!SvROK(sth)) |
171
|
26 |
253 |
if (items > 3) { /* need to bind params before execute */ |
172
|
0 |
26 |
if (!dbdxst_bind_params(sth, imp_sth, items-2, ax+2) ) { |
178
|
0 |
279 |
if ( dbd_st_execute(sth, imp_sth) <= -2 ) { /* -2 == error */ |
182
|
279 |
0 |
maxrows_svp = DBD_ATTRIB_GET_SVP(attr, "MaxRows", 7); |
|
4 |
275 |
maxrows_svp = DBD_ATTRIB_GET_SVP(attr, "MaxRows", 7); |
|
4 |
0 |
maxrows_svp = DBD_ATTRIB_GET_SVP(attr, "MaxRows", 7); |
183
|
0 |
279 |
tmp_sv = dbdxst_fetchall_arrayref(sth, &PL_sv_undef, (maxrows_svp) ? *maxrows_svp : &PL_sv_undef); |
198
|
4 |
226 |
if (SvROK(ST(1))) { |
202
|
4 |
0 |
if ( (mg = mg_find(SvRV(sth),'P')) ) |
209
|
2 |
224 |
if (!SvROK(sth)) { |
210
|
0 |
2 |
if (is_selectrow_array) { XSRETURN_EMPTY; } else { XSRETURN_UNDEF; } |
217
|
35 |
193 |
if (items > 3) { /* need to bind params before execute */ |
218
|
0 |
35 |
if (!dbdxst_bind_params(sth, imp_sth, items-2, ax+2) ) { |
219
|
0 |
0 |
if (is_selectrow_array) { XSRETURN_EMPTY; } else { XSRETURN_UNDEF; } |
224
|
6 |
222 |
if ( dbd_st_execute(sth, imp_sth) <= -2 ) { /* -2 == error */ |
225
|
0 |
6 |
if (is_selectrow_array) { XSRETURN_EMPTY; } else { XSRETURN_UNDEF; } |
229
|
4 |
218 |
if (!row_av) { |
230
|
4 |
0 |
if (GIMME == G_SCALAR) |
|
0 |
4 |
if (GIMME == G_SCALAR) |
233
|
39 |
179 |
else if (is_selectrow_array) { |
235
|
0 |
39 |
int num_fields = AvFILL(row_av)+1; |
236
|
39 |
0 |
if (GIMME == G_SCALAR) |
|
5 |
34 |
if (GIMME == G_SCALAR) |
238
|
39 |
0 |
EXTEND(sp, num_fields); |
|
0 |
39 |
EXTEND(sp, num_fields); |
239
|
40 |
39 |
for(i=0; i < num_fields; ++i) { |
310
|
2 |
74 |
if (DBIc_has(imp_dbh,DBIcf_AutoCommit) && DBIc_WARN(imp_dbh)) |
|
2 |
0 |
if (DBIc_has(imp_dbh,DBIcf_AutoCommit) && DBIc_WARN(imp_dbh)) |
312
|
70 |
6 |
ST(0) = dbd_db_commit(dbh, imp_dbh) ? &PL_sv_yes : &PL_sv_no; |
320
|
2 |
21 |
if (DBIc_has(imp_dbh,DBIcf_AutoCommit) && DBIc_WARN(imp_dbh)) |
|
2 |
0 |
if (DBIc_has(imp_dbh,DBIcf_AutoCommit) && DBIc_WARN(imp_dbh)) |
322
|
21 |
2 |
ST(0) = dbd_db_rollback(dbh, imp_dbh) ? &PL_sv_yes : &PL_sv_no; |
330
|
2 |
89 |
if ( !DBIc_ACTIVE(imp_dbh) ) { |
335
|
1 |
88 |
if (DBIc_ACTIVE_KIDS(imp_dbh) && DBIc_WARN(imp_dbh) && !PL_dirty) { |
|
1 |
0 |
if (DBIc_ACTIVE_KIDS(imp_dbh) && DBIc_WARN(imp_dbh) && !PL_dirty) { |
|
1 |
0 |
if (DBIc_ACTIVE_KIDS(imp_dbh) && DBIc_WARN(imp_dbh) && !PL_dirty) { |
337
|
1 |
0 |
char *plural = (DBIc_ACTIVE_KIDS(imp_dbh)==1) ? (char*)"" : (char*)"s"; |
338
|
0 |
1 |
warn("%s->disconnect invalidates %d active statement handle%s %s", |
342
|
89 |
0 |
ST(0) = dbd_db_disconnect(dbh, imp_dbh) ? &PL_sv_yes : &PL_sv_no; |
343
|
0 |
89 |
DBIc_ACTIVE_off(imp_dbh); /* ensure it's off, regardless */ |
|
0 |
0 |
DBIc_ACTIVE_off(imp_dbh); /* ensure it's off, regardless */ |
|
0 |
0 |
DBIc_ACTIVE_off(imp_dbh); /* ensure it's off, regardless */ |
|
0 |
0 |
DBIc_ACTIVE_off(imp_dbh); /* ensure it's off, regardless */ |
|
0 |
0 |
DBIc_ACTIVE_off(imp_dbh); /* ensure it's off, regardless */ |
353
|
0 |
1328 |
if (SvGMAGICAL(valuesv)) |
356
|
960 |
368 |
if (!dbd_db_STORE_attrib(dbh, imp_dbh, keysv, valuesv)) |
357
|
16 |
944 |
if (!DBIc_DBISTATE(imp_dbh)->set_attr(dbh, keysv, valuesv)) |
368
|
287 |
2896 |
if (!valuesv) |
380
|
6 |
247 |
if (!DBIc_IMPSET(imp_dbh)) { /* was never fully set up */ |
382
|
6 |
0 |
if (DBIc_WARN(imp_dbh) && !PL_dirty && DBIc_DBISTATE(imp_dbh)->debug >= 2) |
|
6 |
0 |
if (DBIc_WARN(imp_dbh) && !PL_dirty && DBIc_DBISTATE(imp_dbh)->debug >= 2) |
|
0 |
6 |
if (DBIc_WARN(imp_dbh) && !PL_dirty && DBIc_DBISTATE(imp_dbh)->debug >= 2) |
383
|
0 |
0 |
PerlIO_printf(DBIc_LOGPIO(imp_dbh), |
388
|
2 |
245 |
if (DBIc_IADESTROY(imp_dbh)) { /* wants ineffective destroy */ |
389
|
0 |
2 |
DBIc_ACTIVE_off(imp_dbh); |
|
0 |
0 |
DBIc_ACTIVE_off(imp_dbh); |
|
0 |
0 |
DBIc_ACTIVE_off(imp_dbh); |
|
0 |
0 |
DBIc_ACTIVE_off(imp_dbh); |
|
0 |
0 |
DBIc_ACTIVE_off(imp_dbh); |
390
|
0 |
2 |
if (DBIc_DBISTATE(imp_dbh)->debug) |
391
|
0 |
0 |
PerlIO_printf(DBIc_LOGPIO(imp_dbh), " DESTROY %s skipped due to InactiveDestroy\n", SvPV_nolen(dbh)); |
393
|
156 |
91 |
if (DBIc_ACTIVE(imp_dbh)) { |
394
|
5 |
151 |
if (!DBIc_has(imp_dbh,DBIcf_AutoCommit)) { |
405
|
4 |
1 |
if (DBIc_WARN(imp_dbh) /* only warn if likely to be useful... */ |
406
|
0 |
4 |
&& DBIc_is(imp_dbh, DBIcf_Executed) /* has not just called commit/rollback */ |
408
|
0 |
0 |
&& (!PL_dirty || DBIc_DBISTATE(imp_dbh)->debug >= 3) |
|
0 |
0 |
&& (!PL_dirty || DBIc_DBISTATE(imp_dbh)->debug >= 3) |
410
|
0 |
0 |
warn("Issuing rollback() due to DESTROY without explicit disconnect() of %s handle %s", |
|
0 |
0 |
warn("Issuing rollback() due to DESTROY without explicit disconnect() of %s handle %s", |
418
|
0 |
156 |
DBIc_ACTIVE_off(imp_dbh); /* ensure it's off, regardless */ |
|
0 |
0 |
DBIc_ACTIVE_off(imp_dbh); /* ensure it's off, regardless */ |
|
0 |
0 |
DBIc_ACTIVE_off(imp_dbh); /* ensure it's off, regardless */ |
|
0 |
0 |
DBIc_ACTIVE_off(imp_dbh); /* ensure it's off, regardless */ |
|
0 |
0 |
DBIc_ACTIVE_off(imp_dbh); /* ensure it's off, regardless */ |
485
|
775 |
342 |
DBD_ATTRIBS_CHECK("_prepare", sth, attribs); |
|
675 |
100 |
DBD_ATTRIBS_CHECK("_prepare", sth, attribs); |
|
675 |
0 |
DBD_ATTRIBS_CHECK("_prepare", sth, attribs); |
|
0 |
675 |
DBD_ATTRIBS_CHECK("_prepare", sth, attribs); |
|
100 |
0 |
DBD_ATTRIBS_CHECK("_prepare", sth, attribs); |
|
0 |
100 |
DBD_ATTRIBS_CHECK("_prepare", sth, attribs); |
|
0 |
0 |
DBD_ATTRIBS_CHECK("_prepare", sth, attribs); |
|
0 |
0 |
DBD_ATTRIBS_CHECK("_prepare", sth, attribs); |
487
|
1107 |
10 |
ST(0) = dbd_st_prepare_sv(sth, imp_sth, statement, attribs) ? &PL_sv_yes : &PL_sv_no; |
518
|
0 |
223 |
if (SvGMAGICAL(ref)) |
520
|
133 |
90 |
if (attribs) { |
521
|
1 |
132 |
if (SvNIOK(attribs)) { |
522
|
1 |
0 |
sql_type = SvIV(attribs); |
527
|
132 |
0 |
DBD_ATTRIBS_CHECK("bind_col", sth, attribs); |
|
131 |
1 |
DBD_ATTRIBS_CHECK("bind_col", sth, attribs); |
|
131 |
0 |
DBD_ATTRIBS_CHECK("bind_col", sth, attribs); |
|
0 |
131 |
DBD_ATTRIBS_CHECK("bind_col", sth, attribs); |
|
1 |
0 |
DBD_ATTRIBS_CHECK("bind_col", sth, attribs); |
|
0 |
1 |
DBD_ATTRIBS_CHECK("bind_col", sth, attribs); |
|
0 |
0 |
DBD_ATTRIBS_CHECK("bind_col", sth, attribs); |
|
0 |
0 |
DBD_ATTRIBS_CHECK("bind_col", sth, attribs); |
529
|
1 |
131 |
DBD_ATTRIB_GET_IV(attribs, "TYPE",4, svp, sql_type); |
|
1 |
0 |
DBD_ATTRIB_GET_IV(attribs, "TYPE",4, svp, sql_type); |
|
1 |
0 |
DBD_ATTRIB_GET_IV(attribs, "TYPE",4, svp, sql_type); |
|
1 |
131 |
DBD_ATTRIB_GET_IV(attribs, "TYPE",4, svp, sql_type); |
|
1 |
0 |
DBD_ATTRIB_GET_IV(attribs, "TYPE",4, svp, sql_type); |
537
|
223 |
0 |
? &PL_sv_yes : &PL_sv_no; |
556
|
0 |
271 |
if (SvGMAGICAL(value)) |
558
|
229 |
42 |
if (attribs) { |
559
|
162 |
67 |
if (SvNIOK(attribs)) { |
560
|
162 |
0 |
sql_type = SvIV(attribs); |
565
|
67 |
0 |
DBD_ATTRIBS_CHECK("bind_param", sth, attribs); |
|
64 |
3 |
DBD_ATTRIBS_CHECK("bind_param", sth, attribs); |
|
64 |
0 |
DBD_ATTRIBS_CHECK("bind_param", sth, attribs); |
|
0 |
64 |
DBD_ATTRIBS_CHECK("bind_param", sth, attribs); |
|
3 |
0 |
DBD_ATTRIBS_CHECK("bind_param", sth, attribs); |
|
0 |
3 |
DBD_ATTRIBS_CHECK("bind_param", sth, attribs); |
|
0 |
0 |
DBD_ATTRIBS_CHECK("bind_param", sth, attribs); |
|
0 |
0 |
DBD_ATTRIBS_CHECK("bind_param", sth, attribs); |
567
|
3 |
64 |
DBD_ATTRIB_GET_IV(attribs, "TYPE",4, svp, sql_type); |
|
3 |
0 |
DBD_ATTRIB_GET_IV(attribs, "TYPE",4, svp, sql_type); |
|
3 |
0 |
DBD_ATTRIB_GET_IV(attribs, "TYPE",4, svp, sql_type); |
|
3 |
64 |
DBD_ATTRIB_GET_IV(attribs, "TYPE",4, svp, sql_type); |
|
3 |
0 |
DBD_ATTRIB_GET_IV(attribs, "TYPE",4, svp, sql_type); |
571
|
270 |
1 |
? &PL_sv_yes : &PL_sv_no; |
587
|
0 |
0 |
if (!SvROK(value_ref) || SvTYPE(SvRV(value_ref)) > SVt_PVMG) |
|
0 |
0 |
if (!SvROK(value_ref) || SvTYPE(SvRV(value_ref)) > SVt_PVMG) |
590
|
0 |
0 |
if (SvREADONLY(value)) |
592
|
0 |
0 |
if (SvGMAGICAL(value)) |
594
|
0 |
0 |
if (attribs) { |
595
|
0 |
0 |
if (SvNIOK(attribs)) { |
596
|
0 |
0 |
sql_type = SvIV(attribs); |
601
|
0 |
0 |
DBD_ATTRIBS_CHECK("bind_param", sth, attribs); |
|
0 |
0 |
DBD_ATTRIBS_CHECK("bind_param", sth, attribs); |
|
0 |
0 |
DBD_ATTRIBS_CHECK("bind_param", sth, attribs); |
|
0 |
0 |
DBD_ATTRIBS_CHECK("bind_param", sth, attribs); |
|
0 |
0 |
DBD_ATTRIBS_CHECK("bind_param", sth, attribs); |
|
0 |
0 |
DBD_ATTRIBS_CHECK("bind_param", sth, attribs); |
|
0 |
0 |
DBD_ATTRIBS_CHECK("bind_param", sth, attribs); |
|
0 |
0 |
DBD_ATTRIBS_CHECK("bind_param", sth, attribs); |
602
|
0 |
0 |
DBD_ATTRIB_GET_IV(attribs, "TYPE",4, svp, sql_type); |
|
0 |
0 |
DBD_ATTRIB_GET_IV(attribs, "TYPE",4, svp, sql_type); |
|
0 |
0 |
DBD_ATTRIB_GET_IV(attribs, "TYPE",4, svp, sql_type); |
|
0 |
0 |
DBD_ATTRIB_GET_IV(attribs, "TYPE",4, svp, sql_type); |
|
0 |
0 |
DBD_ATTRIB_GET_IV(attribs, "TYPE",4, svp, sql_type); |
606
|
0 |
0 |
? &PL_sv_yes : &PL_sv_no; |
616
|
357 |
583 |
if (items > 1) { /* need to bind params */ |
617
|
0 |
357 |
if (!dbdxst_bind_params(sth, imp_sth, items, ax) ) { |
625
|
450 |
490 |
if (retval == 0) /* ok with no rows affected */ |
627
|
11 |
479 |
else if (retval < -1) /* -1 == unknown number of rows */ |
678
|
856 |
301 |
ST(0) = (av) ? sv_2mortal(newRV((SV *)av)) : &PL_sv_undef; |
690
|
34 |
10 |
if (av) { |
692
|
0 |
34 |
int num_fields = AvFILL(av)+1; |
693
|
34 |
0 |
EXTEND(sp, num_fields); |
|
0 |
34 |
EXTEND(sp, num_fields); |
694
|
50 |
34 |
for(i=0; i < num_fields; ++i) { |
707
|
18 |
43 |
if (SvOK(slice)) { /* fallback to perl implementation */ |
|
18 |
0 |
if (SvOK(slice)) { /* fallback to perl implementation */ |
|
0 |
18 |
if (SvOK(slice)) { /* fallback to perl implementation */ |
725
|
44 |
17 |
if (!DBIc_ACTIVE(imp_sth)) { |
729
|
0 |
17 |
if (!DBIc_ACTIVE(imp_dbh)) { |
732
|
0 |
0 |
DBIc_ACTIVE_off(imp_sth); |
|
0 |
0 |
DBIc_ACTIVE_off(imp_sth); |
|
0 |
0 |
DBIc_ACTIVE_off(imp_sth); |
|
0 |
0 |
DBIc_ACTIVE_off(imp_sth); |
|
0 |
0 |
DBIc_ACTIVE_off(imp_sth); |
736
|
17 |
0 |
ST(0) = dbd_st_finish3(sth, imp_sth, 0) ? &PL_sv_yes : &PL_sv_no; |
753
|
0 |
0 |
if (!destrv) |
755
|
0 |
0 |
if (dbd_st_blob_read(sth, imp_sth, field, offset, len, destrv, destoffset)) |
768
|
0 |
5 |
if (SvGMAGICAL(valuesv)) |
771
|
5 |
0 |
if (!dbd_st_STORE_attrib(sth, imp_sth, keysv, valuesv)) |
772
|
0 |
5 |
if (!DBIc_DBISTATE(imp_sth)->set_attr(sth, keysv, valuesv)) |
788
|
199 |
658 |
if (!valuesv) |
800
|
10 |
1107 |
if (!DBIc_IMPSET(imp_sth)) { /* was never fully set up */ |
802
|
10 |
0 |
if (DBIc_WARN(imp_sth) && !PL_dirty && DBIc_DBISTATE(imp_sth)->debug >= 2) |
|
10 |
0 |
if (DBIc_WARN(imp_sth) && !PL_dirty && DBIc_DBISTATE(imp_sth)->debug >= 2) |
|
0 |
10 |
if (DBIc_WARN(imp_sth) && !PL_dirty && DBIc_DBISTATE(imp_sth)->debug >= 2) |
803
|
0 |
0 |
PerlIO_printf(DBIc_LOGPIO(imp_sth), |
808
|
0 |
1107 |
if (DBIc_IADESTROY(imp_sth)) { /* wants ineffective destroy */ |
809
|
0 |
0 |
DBIc_ACTIVE_off(imp_sth); |
|
0 |
0 |
DBIc_ACTIVE_off(imp_sth); |
|
0 |
0 |
DBIc_ACTIVE_off(imp_sth); |
|
0 |
0 |
DBIc_ACTIVE_off(imp_sth); |
|
0 |
0 |
DBIc_ACTIVE_off(imp_sth); |
810
|
0 |
0 |
if (DBIc_DBISTATE(imp_sth)->debug) |
811
|
0 |
0 |
PerlIO_printf(DBIc_LOGPIO(imp_sth), " DESTROY %s skipped due to InactiveDestroy\n", SvPV_nolen(sth)); |
813
|
58 |
1049 |
if (DBIc_ACTIVE(imp_sth)) { |
815
|
58 |
0 |
if (!PL_dirty && DBIc_ACTIVE(imp_dbh)) { |
|
57 |
1 |
if (!PL_dirty && DBIc_ACTIVE(imp_dbh)) { |
823
|
1 |
0 |
DBIc_ACTIVE_off(imp_sth); |
|
1 |
0 |
DBIc_ACTIVE_off(imp_sth); |
|
1 |
0 |
DBIc_ACTIVE_off(imp_sth); |
|
1 |
0 |
DBIc_ACTIVE_off(imp_sth); |
|
0 |
1 |
DBIc_ACTIVE_off(imp_sth); |