/ 
SQL-Abstract-2.000002
/ DBIx::Class::Storage::Debug::PrettyPrint
Security Advisories (1)
CVE-2026-121265 (2026-11-07)

SQL::Abstract versions before 2.000003 for Perl allow SQL injection via an arrayref column value in insert and update. With the array_datatypes option off, which is the default, insert(), update() and values() treat an arrayref column value as literal SQL. Its first element goes into the SQL text unescaped and the rest become bind values. A JSON array, or a repeated form field decoded as an arrayref, is such a value. An application that passes request data as column values to insert or update with the default options allows SQL injection. Releases before 2.000003 also treat an arrayref in generate() as literal SQL, including through AUTOLOAD when allow_autoload is on, whatever array_datatypes is set to.

NAME

DBIx::Class::Storage::Debug::PrettyPrint - Pretty Printing DebugObj

REQUIRES

This module ships inside the SQL-Abstract distribution but requires DBIx::Class at runtime. DBIx::Class is intentionally not a prerequisite of SQL-Abstract - DBIx::Class depends on SQL::Abstract, so declaring the reverse would create a dependency cycle - therefore you must have DBIx::Class installed separately to use this module.

SYNOPSIS

DBIC_TRACE_PROFILE=~/dbic.json perl -Ilib ./foo.pl

Where dbic.json contains:

{
  "profile":"console",
  "show_progress":1,
  "squash_repeats":1
}

METHODS

new

my $pp = DBIx::Class::Storage::Debug::PrettyPrint->new({
  show_progress  => 1,             # tries it's best to make it clear that a SQL
                                   # statement is still running
  executing      => '...',         # the string that is added to the end of SQL
                                   # if show_progress is on.  You probably don't
                                   # need to set this
  clear_line     => '<CR><ESC>[J', # the string used to erase the string added
                                   # to SQL if show_progress is on.  Again, the
                                   # default is probably good enough.

  squash_repeats => 1,             # set to true to make repeated SQL queries
                                   # be ellided and only show the new bind params
  # any other args are passed through directly to SQL::Abstract::Tree
});