===========================================================
                                      .___ __  __   
          _________________  __ __  __| _/|__|/  |_ 
         / ___\_` __ \__  \ |  |  \/ __ | | \\_  __\
        / /_/  >  | \// __ \|  |  / /_/ | |  ||  |  
        \___  /|__|  (____  /____/\____ | |__||__|  
       /_____/            \/           \/           
              grep rough audit - static analysis tool
                  v2.8 written by @Wireghoul
=================================[justanotherhacker.com]===
libtie-dbi-perl-1.08/lib/Tie/DBI.pm-173-        else {
libtie-dbi-perl-1.08/lib/Tie/DBI.pm:174:            $query = "SELECT $s->{key} FROM $s->{table} WHERE " . join( ' OR ', ("$s->{key}=?") x $count );
libtie-dbi-perl-1.08/lib/Tie/DBI.pm-175-        }
##############################################
libtie-dbi-perl-1.08/lib/Tie/DBI.pm-242-    $key = $s->_quote( $s->{key}, $key ) unless $s->{CanBindSelect};
libtie-dbi-perl-1.08/lib/Tie/DBI.pm:243:    my $st = $s->_run_query( 'fetch1', "SELECT $s->{key} FROM $s->{table} WHERE $s->{key} = ?", $key );
libtie-dbi-perl-1.08/lib/Tie/DBI.pm-244-    croak $DBI::errstr unless $st;
##############################################
libtie-dbi-perl-1.08/lib/Tie/DBI.pm-266-    $key = $s->_quote( $s->{key}, $key ) unless $s->{CanBindSelect};
libtie-dbi-perl-1.08/lib/Tie/DBI.pm:267:    my $st = $s->_run_query( 'delete', "delete from $s->{table} where $s->{key} = ?", $key )
libtie-dbi-perl-1.08/lib/Tie/DBI.pm-268-      || croak "DELETE: delete statement failed, ", $s->errstr;
##############################################
libtie-dbi-perl-1.08/lib/Tie/DBI.pm-446-    if ( $self->{'driver'} eq 'Oracle' ) {
libtie-dbi-perl-1.08/lib/Tie/DBI.pm:447:        $sth = $self->{'dbh'}->prepare( "SELECT column_name,data_type FROM ALL_TAB_COLUMNS WHERE TABLE_NAME = " . $self->{'dbh'}->quote("$self->{table}") );
libtie-dbi-perl-1.08/lib/Tie/DBI.pm-448-        $sth->execute()
##############################################
libtie-dbi-perl-1.08/lib/Tie/DBI.pm-475-    my $f = join( ',', @valid_fields );
libtie-dbi-perl-1.08/lib/Tie/DBI.pm:476:    my $st = $s->_run_query( "fetch$f", "SELECT $f FROM $s->{table} WHERE $s->{key}=?", $key )
libtie-dbi-perl-1.08/lib/Tie/DBI.pm-477-      || croak "_fetch_field: ", $s->errstr;
##############################################
libtie-dbi-perl-1.08/lib/Tie/DBI.pm-512-        "update@$fields",
libtie-dbi-perl-1.08/lib/Tie/DBI.pm:513:        "update $s->{table} set @set where $s->{key}=?", @values, $key
libtie-dbi-perl-1.08/lib/Tie/DBI.pm-514-    );