YK
Size: a a a
a
YK
insert table (colN,...) format CSV
a
VK
for (@resultset) {
$table1->related_table2->name
}
select name from table where id = ?
a
YK
say SQL::Abstract->new(qw/case lower/)->where({ id => { '>', \1 }, uid => {'=', \q('whatever')} });
YK
a
YK
a
a
W
warstone@dev:~$ perl -d test.plhttps://github.com/Perl/perl5/pull/18900
Loading DB routines from perl5db.pl version 1.60
Editor support available.
Enter h or 'h h' for help, or 'man perldebug' for more help.
main::(test.pl:2): print "1\n";
DB<1> v
Undefined subroutine &DB::cmd_l called at /usr/local/perl5.34.0/lib/5.34.0/perl5db.pl line 6034.
at /usr/local/perl5.34.0/lib/5.34.0/perl5db.pl line 6034.
DB::cmd_v("v", "", 2) called at /usr/local/perl5.34.0/lib/5.34.0/perl5db.pl line 4798
DB::cmd_wrapper("v", "", 2) called at /usr/local/perl5.34.0/lib/5.34.0/perl5db.pl line 4311
DB::Obj::_handle_cmd_wrapper_commands(DB::Obj=HASH(0x558a60b0e0b8)) called at /usr/local/perl5.34.0/lib/5.34.0/perl5db.pl line 3200
DB::DB called at test.pl line 2
Debugged program terminated. Use q to quit or R to restart,
use o inhibit_exit to avoid stopping after program termination,
h q, h R or h o to get additional info.
DB<1> q
warstone@dev:~$ perl -v
This is perl 5, version 34, subversion 0 (v5.34.0) built for x86_64-linux
DF
MG
b
MG
b
MG
MG