=========================================================== .___ __ __ _________________ __ __ __| _/|__|/ |_ / ___\_` __ \__ \ | | \/ __ | | \\_ __\ / /_/ > | \// __ \| | / /_/ | | || | \___ /|__| (____ /____/\____ | |__||__| /_____/ \/ \/ grep rough audit - static analysis tool v2.8 written by @Wireghoul =================================[justanotherhacker.com]=== libsql-statement-perl-1.414/lib/SQL/Statement/Structure.pod-289- libsql-statement-perl-1.414/lib/SQL/Statement/Structure.pod:290: my $where = $stmt->where(); libsql-statement-perl-1.414/lib/SQL/Statement/Structure.pod-291- ############################################## libsql-statement-perl-1.414/lib/SQL/Parser.pm-484- if ( $str =~ s/^(.+) GROUP BY (.+)$/$1/i ) { $groupby_clause = $2; } libsql-statement-perl-1.414/lib/SQL/Parser.pm:485: if ( $str =~ s/^(.+?) WHERE (.+)$/$1/i ) { $where_clause = $2; } libsql-statement-perl-1.414/lib/SQL/Parser.pm-486- if ( $str =~ s/^(.+?) FROM (.+)$/$1/i ) { $from_clause = $2; } ############################################## libsql-statement-perl-1.414/README.md-118- libsql-statement-perl-1.414/README.md:119:- `$data` libsql-statement-perl-1.414/README.md-120- ############################################## libsql-statement-perl-1.414/README.md-122- libsql-statement-perl-1.414/README.md:123:- `$table` libsql-statement-perl-1.414/README.md-124- ############################################## libsql-statement-perl-1.414/README.md-126- libsql-statement-perl-1.414/README.md:127:- `$createMode` libsql-statement-perl-1.414/README.md-128- ############################################## libsql-statement-perl-1.414/README.md-131- libsql-statement-perl-1.414/README.md:132:- `$lockMode` libsql-statement-perl-1.414/README.md-133- ############################################## libsql-statement-perl-1.414/README.md-146- libsql-statement-perl-1.414/README.md:147:- `$sql` libsql-statement-perl-1.414/README.md-148- ############################################## libsql-statement-perl-1.414/README.md-150- libsql-statement-perl-1.414/README.md:151:- `$parser` libsql-statement-perl-1.414/README.md-152- ############################################## libsql-statement-perl-1.414/README.md-156-When the basic initialization is completed, libsql-statement-perl-1.414/README.md:157:`$self->prepare($sql, $parser)` is invoked. libsql-statement-perl-1.414/README.md-158- ############################################## libsql-statement-perl-1.414/README.md-164- libsql-statement-perl-1.414/README.md:165:- `$sql` libsql-statement-perl-1.414/README.md-166- ############################################## libsql-statement-perl-1.414/README.md-168- libsql-statement-perl-1.414/README.md:169:- `$parser` libsql-statement-perl-1.414/README.md-170- ############################################## libsql-statement-perl-1.414/README.md-178- libsql-statement-perl-1.414/README.md:179:- `$data` libsql-statement-perl-1.414/README.md-180- libsql-statement-perl-1.414/README.md:181: Memo field passed through to calls of the instantiated `$table` libsql-statement-perl-1.414/README.md-182- objects or `open_table` calls. In `CREATE` with subquery, libsql-statement-perl-1.414/README.md:183: `$data->{Database}` must be a DBI database handle object. libsql-statement-perl-1.414/README.md-184- libsql-statement-perl-1.414/README.md:185:- `$params` libsql-statement-perl-1.414/README.md-186- ############################################## libsql-statement-perl-1.414/t/17quoting.t-65- libsql-statement-perl-1.414/t/17quoting.t:66: $stmt = SQL::Statement->new( q{SELECT "COLUMN WITH SPACES" FROM "TBL WITH SPACES" WHERE id=1}, $parser ); libsql-statement-perl-1.414/t/17quoting.t-67- ok( !defined( $parser->structure()->{errstr} ), ############################################## libsql-statement-perl-1.414/t/17quoting.t-94- libsql-statement-perl-1.414/t/17quoting.t:95: $stmt = SQL::Statement->new( q{SELECT "COLUMN WITH SPACES" AS CWS FROM "TBL WITH SPACES" WHERE id=1}, $parser ); libsql-statement-perl-1.414/t/17quoting.t-96- ok( !defined( $parser->structure()->{errstr} ), ############################################## libsql-statement-perl-1.414/t/17quoting.t-134- libsql-statement-perl-1.414/t/17quoting.t:135: $stmt = SQL::Statement->new( q{SELECT T1."COLUMN WITH SPACES" FROM T1 WHERE id=1}, $parser ); libsql-statement-perl-1.414/t/17quoting.t-136- ok( !defined( $parser->structure()->{errstr} ), ############################################## libsql-statement-perl-1.414/t/17quoting.t-163- libsql-statement-perl-1.414/t/17quoting.t:164: $stmt = SQL::Statement->new( q{SELECT "COLUMN WITH SPACES" FROM T1 WHERE id=1}, $parser ); libsql-statement-perl-1.414/t/17quoting.t-165- ok( !defined( $parser->structure()->{errstr} ), ############################################## libsql-statement-perl-1.414/t/17quoting.t-192- libsql-statement-perl-1.414/t/17quoting.t:193: $stmt = SQL::Statement->new( q{SELECT "COLUMN WITH SPACES" AS CWS FROM T1 WHERE id=1}, $parser ); libsql-statement-perl-1.414/t/17quoting.t-194- ok( !defined( $parser->structure()->{errstr} ), ############################################## libsql-statement-perl-1.414/t/17quoting.t-232- libsql-statement-perl-1.414/t/17quoting.t:233: $stmt = SQL::Statement->new( q{SELECT "TBL WITH SPACES".CWS FROM "TBL WITH SPACES" WHERE id=1}, $parser ); libsql-statement-perl-1.414/t/17quoting.t-234- ok( !defined( $parser->structure()->{errstr} ), ############################################## libsql-statement-perl-1.414/t/17quoting.t-261- libsql-statement-perl-1.414/t/17quoting.t:262: $stmt = SQL::Statement->new( q{SELECT CWS FROM "TBL WITH SPACES" WHERE id=1}, $parser ); libsql-statement-perl-1.414/t/17quoting.t-263- ok( !defined( $parser->structure()->{errstr} ), ############################################## libsql-statement-perl-1.414/t/17quoting.t-301- libsql-statement-perl-1.414/t/17quoting.t:302: $stmt = SQL::Statement->new( q{SELECT CWS FROM T1 WHERE "SET"=0}, $parser ); libsql-statement-perl-1.414/t/17quoting.t-303- ok( !defined( $parser->structure()->{errstr} ), libsql-statement-perl-1.414/t/17quoting.t:304: q{Parsing SELECT CWS ... WHERE "SET"=0: } . ( $parser->structure()->{errstr} || '' ) ); libsql-statement-perl-1.414/t/17quoting.t-305- if ( defined( $parser->structure()->{errstr} ) ) ############################################## libsql-statement-perl-1.414/t/17quoting.t-329- libsql-statement-perl-1.414/t/17quoting.t:330: $stmt = SQL::Statement->new( q{SELECT "SET" FROM T1 WHERE CWS='bar'}, $parser ); libsql-statement-perl-1.414/t/17quoting.t-331- ok( !defined( $parser->structure()->{errstr} ), ############################################## libsql-statement-perl-1.414/t/02execute.t-52- 'placeholder delete' ); libsql-statement-perl-1.414/t/02execute.t:53: ok( $dbh->do( qq{ UPDATE Tmp SET phrase=? WHERE id=?}, {}, 'bar', 2 ), 'placeholder update' ) or diag( $dbh->errstr() ); libsql-statement-perl-1.414/t/02execute.t-54- ok( $dbh->do( qq{ UPDATE Tmp SET phrase=?,id=? WHERE id=? and phrase=?},