vertical explain table for DBIx::QueryLog

gistfile1.txt

    return sub {
        my %args = @_;

        return $sth->fetchall_arrayref(+{}) unless defined $args{print} and $args{print};

        my $t = Text::ASCIITable->new();
        $t->setCols('explain', 'result');
        $t->alignCol({explain => 'right', result => 'left'});
        my @cols = @{$sth->{NAME}};
        for my $records (@{$sth->fetchall_arrayref}) {
            my $count = 0;
            for my $value (@{$records}) {
                $t->addRow([$cols[$count], defined($value) ? $value : 'NULL']);
                $count++;
            }
        }

        return $t;
    };