=========================================================== .___ __ __ _________________ __ __ __| _/|__|/ |_ / ___\_` __ \__ \ | | \/ __ | | \\_ __\ / /_/ > | \// __ \| | / /_/ | | || | \___ /|__| (____ /____/\____ | |__||__| /_____/ \/ \/ grep rough audit - static analysis tool v2.8 written by @Wireghoul =================================[justanotherhacker.com]=== libalzabo-perl-0.92/t/03-runtime.t-250- $emp_t->rows_where libalzabo-perl-0.92/t/03-runtime.t:251: ( where => [ $emp_t->column('employee_id'), '=', $emp2_id ] ); libalzabo-perl-0.92/t/03-runtime.t-252- ############################################## libalzabo-perl-0.92/t/03-runtime.t-261- is( $x, 1, libalzabo-perl-0.92/t/03-runtime.t:262: "Check count of rows found where employee_id == $emp2_id" ); libalzabo-perl-0.92/t/03-runtime.t-263- is( $cursor->count, 1, ############################################## libalzabo-perl-0.92/t/03-runtime.t-419- $s->join( join => [ $e_alias, $emp_proj_t, $p_alias ], libalzabo-perl-0.92/t/03-runtime.t:420: where => [ $e_alias->column('employee_id'), '=', 1 ], libalzabo-perl-0.92/t/03-runtime.t-421- order_by => $p_alias->column('project_id'), ############################################## libalzabo-perl-0.92/t/03-runtime.t-443- join => [ $p_alias, $emp_proj_t, $proj_t ], libalzabo-perl-0.92/t/03-runtime.t:444: where => [ [ $p_alias->column('project_id'), '=', 1 ], libalzabo-perl-0.92/t/03-runtime.t-445- [ $proj_t->column('project_id'), '=', 1 ] ], ############################################## libalzabo-perl-0.92/t/03-runtime.t-463- eval_ok( sub { @rows = $s->one_row( tables => [ $emp_t, $emp_proj_t, $proj_t ], libalzabo-perl-0.92/t/03-runtime.t:464: where => [ $emp_t->column('employee_id'), '=', 1 ], libalzabo-perl-0.92/t/03-runtime.t-465- order_by => $proj_t->column('project_id') ) }, ############################################## libalzabo-perl-0.92/t/03-runtime.t-476- $cursor = $s->join( join => [ $emp_t, $emp_proj_t, $proj_t ], libalzabo-perl-0.92/t/03-runtime.t:477: where => [ $emp_t->column('employee_id'), '=', 1 ], libalzabo-perl-0.92/t/03-runtime.t-478- order_by => [ $proj_t->column('project_id'), 'desc' ] ); ############################################## libalzabo-perl-0.92/t/03-runtime.t-487- $cursor = $s->join( join => [ $emp_t, $emp_proj_t, $proj_t ], libalzabo-perl-0.92/t/03-runtime.t:488: where => [ $emp_t->column('employee_id'), '=', 1 ], libalzabo-perl-0.92/t/03-runtime.t-489- order_by => [ $proj_t->column('project_id'), 'desc' ] ); ############################################## libalzabo-perl-0.92/t/03-runtime.t-501- [ $emp_proj_t, $proj_t ] ], libalzabo-perl-0.92/t/03-runtime.t:502: where => [ $emp_t->column('employee_id'), '=', 1 ] ) }, libalzabo-perl-0.92/t/03-runtime.t-503- "Join with join as arrayref of arrayrefs" ); ############################################## libalzabo-perl-0.92/t/03-runtime.t-519- [ $emp_proj_t, $proj_t ] ], libalzabo-perl-0.92/t/03-runtime.t:520: where => [ $emp_t->column('employee_id'), '=', 1 ] ) }, libalzabo-perl-0.92/t/03-runtime.t-521- "Same join with no select parameter" ); ############################################## libalzabo-perl-0.92/t/03-runtime.t-540- [ $s->tables( 'outer_1', 'outer_2' ) ] ], libalzabo-perl-0.92/t/03-runtime.t:541: where => [ $emp_t->column('employee_id'), '=', 1 ] ) }; libalzabo-perl-0.92/t/03-runtime.t-542- ############################################## libalzabo-perl-0.92/t/03-runtime.t-547- eval_ok( sub { @rows = $s->join( join => $emp_t, libalzabo-perl-0.92/t/03-runtime.t:548: where => [ $emp_t->column('employee_id'), '=', 1 ] )->all_rows }, libalzabo-perl-0.92/t/03-runtime.t-549- "Join with a single table" ); ############################################## libalzabo-perl-0.92/t/03-runtime.t-986- my $smell = $emps[0]->select('smell'); libalzabo-perl-0.92/t/03-runtime.t:987: is( $emp_t->row_count( where => [ $emp_t->column('smell'), '=', $smell ] ), 1, libalzabo-perl-0.92/t/03-runtime.t-988- "Call row_count method with where parameter." ); ############################################## libalzabo-perl-0.92/t/03-runtime.t-1019- { libalzabo-perl-0.92/t/03-runtime.t:1020: my @emps = $emp_t->rows_where( where => [ [ $eid_c, '=', 9000 ], libalzabo-perl-0.92/t/03-runtime.t-1021- 'or', ############################################## libalzabo-perl-0.92/t/03-runtime.t-1035- { libalzabo-perl-0.92/t/03-runtime.t:1036: my @emps = $emp_t->rows_where( where => [ [ $emp_t->column('smell'), '!=', 'c' ], libalzabo-perl-0.92/t/03-runtime.t-1037- 'and', ############################################## libalzabo-perl-0.92/t/03-runtime.t-1076- { libalzabo-perl-0.92/t/03-runtime.t:1077: my @emps = $emp_t->rows_where( where => [ $eid_c, 'between', 9000, 9002 ] )->all_rows; libalzabo-perl-0.92/t/03-runtime.t-1078- @emps = sort { $a->select('employee_id') <=> $b->select('employee_id') } @emps; ############################################## libalzabo-perl-0.92/t/03-runtime.t-1109- { libalzabo-perl-0.92/t/03-runtime.t:1110: my @emps = eval { $emp_t->rows_where( where => [ LENGTH( $emp_t->column('smell') ), '=', 1 ] )->all_rows }; libalzabo-perl-0.92/t/03-runtime.t-1111- ############################################## libalzabo-perl-0.92/t/03-runtime.t-1117- my @emps; libalzabo-perl-0.92/t/03-runtime.t:1118: eval_ok( sub { @emps = $emp_t->rows_where( where => [ LENGTH( $emp_t->column('smell') ), '=', 1 ], libalzabo-perl-0.92/t/03-runtime.t-1119- limit => 2 )->all_rows }, ############################################## libalzabo-perl-0.92/t/03-runtime.t-1127- my @emps; libalzabo-perl-0.92/t/03-runtime.t:1128: eval_ok( sub { @emps = $emp_t->rows_where( where => [ LENGTH( $emp_t->column('smell') ), '=', 1 ], libalzabo-perl-0.92/t/03-runtime.t-1129- order_by => $emp_t->column('smell'), ############################################## libalzabo-perl-0.92/t/03-runtime.t-1195- @rows = $emp_t->function( select => $emp_t->column('smell'), libalzabo-perl-0.92/t/03-runtime.t:1196: where => [ LENGTH( $emp_t->column('smell') ), '=', 1 ], libalzabo-perl-0.92/t/03-runtime.t-1197- order_by => $emp_t->column('smell') ); ############################################## libalzabo-perl-0.92/t/03-runtime.t-1210- my $statement = $emp_t->select( select => $emp_t->column('smell'), libalzabo-perl-0.92/t/03-runtime.t:1211: where => [ LENGTH( $emp_t->column('smell') ), '=', 1 ], libalzabo-perl-0.92/t/03-runtime.t-1212- order_by => $emp_t->column('smell') ); ############################################## libalzabo-perl-0.92/t/03-runtime.t-1227- @rows = $emp_t->function( select => $emp_t->column('smell'), libalzabo-perl-0.92/t/03-runtime.t:1228: where => [ LENGTH( $emp_t->column('smell') ), '=', 1 ], libalzabo-perl-0.92/t/03-runtime.t-1229- order_by => $emp_t->column('smell'), ############################################## libalzabo-perl-0.92/t/03-runtime.t-1240- my $statement = $emp_t->select( select => $emp_t->column('smell'), libalzabo-perl-0.92/t/03-runtime.t:1241: where => [ LENGTH( $emp_t->column('smell') ), '=', 1 ], libalzabo-perl-0.92/t/03-runtime.t-1242- order_by => $emp_t->column('smell'), ############################################## libalzabo-perl-0.92/t/03-runtime.t-1396- join => [ $dep_t, $proj_t ], libalzabo-perl-0.92/t/03-runtime.t:1397: where => [ $proj_t->column('project_id'), 'in', libalzabo-perl-0.92/t/03-runtime.t-1398- map { $_->select('project_id') } $p1, $p2 ], ############################################## libalzabo-perl-0.92/t/03-runtime.t-1413- join => [ $emp_t, $emp_proj_t ], libalzabo-perl-0.92/t/03-runtime.t:1414: where => [ $emp_t->column('employee_id'), 'in', 9001 ], libalzabo-perl-0.92/t/03-runtime.t-1415- ) }, ############################################## libalzabo-perl-0.92/t/03-runtime.t-1497- libalzabo-perl-0.92/t/03-runtime.t:1498: @rows = $emp_t->rows_where( where => [ $emp_t->column('employee_id'), 'BETWEEN', libalzabo-perl-0.92/t/03-runtime.t-1499- 999_990, 999_996 ], ############################################## libalzabo-perl-0.92/t/03-runtime.t-1525- libalzabo-perl-0.92/t/03-runtime.t:1526: @rows = $emp_t->rows_where( where => [ $emp_t->column('employee_id'), 'BETWEEN', libalzabo-perl-0.92/t/03-runtime.t-1527- 999_990, 999_996 ], ############################################## libalzabo-perl-0.92/t/03-runtime.t-1603- libalzabo-perl-0.92/t/03-runtime.t:1604: @rows = $emp_t->rows_where( where => [ MATCH( $emp_t->column('name') ), AGAINST('abathraspus') ] )->all_rows; libalzabo-perl-0.92/t/03-runtime.t-1605- is( @rows, 0, ############################################## libalzabo-perl-0.92/t/03-runtime.t-1607- libalzabo-perl-0.92/t/03-runtime.t:1608: @rows = $emp_t->rows_where( where => [ MATCH( $emp_t->column('name') ), AGAINST('snuffleupagus') ] )->all_rows; libalzabo-perl-0.92/t/03-runtime.t-1609- is( @rows, 1, ############################################## libalzabo-perl-0.92/t/03-runtime.t-1614- my $rows = $emp_t->function( select => [ $emp_t->column('employee_id'), MATCH( $emp_t->column('name') ), AGAINST('snuffleupagus') ], libalzabo-perl-0.92/t/03-runtime.t:1615: where => [ MATCH( $emp_t->column('name') ), AGAINST('snuffleupagus') ] ); libalzabo-perl-0.92/t/03-runtime.t-1616- my ($id, $score) = @$rows; ############################################## libalzabo-perl-0.92/t/03-runtime.t-1752- libalzabo-perl-0.92/t/03-runtime.t:1753: eval { $emp_t->rows_where( where => [ $eid_c, '=', 9000, libalzabo-perl-0.92/t/03-runtime.t-1754- $eid_c, '=', 9002 ] ) }; ############################################## libalzabo-perl-0.92/t/03-runtime.t-1776- $emp_t->one_row libalzabo-perl-0.92/t/03-runtime.t:1777: ( where => [ $emp_t->column('name'), '=', 'nonexistent' ] ) }, libalzabo-perl-0.92/t/03-runtime.t-1778- "Call ->one_row with a query guaranteed to fail" ); ############################################## libalzabo-perl-0.92/t/03-runtime.t-1826- $s->join( join => [ $emp_t, $emp_proj_t, $proj_t ], libalzabo-perl-0.92/t/03-runtime.t:1827: where => [ $emp_t->column('employee_id'), '=', 9001 ] ) }, libalzabo-perl-0.92/t/03-runtime.t-1828- "Join with join as arrayref of arrayrefs" ); ############################################## libalzabo-perl-0.92/Changes-1229- tables => [ $foo_tab, $bar_tab, $foo_alias ], libalzabo-perl-0.92/Changes:1230: where => [ [ $bar_tab->column('baz'), '=', 10 ], libalzabo-perl-0.92/Changes-1231- [ $foo_alias->column('quux'), '=', 100 ] ], ############################################## libalzabo-perl-0.92/Changes-1497- libalzabo-perl-0.92/Changes:1498: ( where => [ $col_foo, '=', 1, libalzabo-perl-0.92/Changes-1499- $col_bar, '=', 2 ] ) ############################################## libalzabo-perl-0.92/lib/Alzabo/MethodMaker.pm-462- code => sub { my $self = shift; libalzabo-perl-0.92/lib/Alzabo/MethodMaker.pm:463: my @where = map { [ $_->[0], '=', $self->select( $_->[1] ) ] } @pairs; libalzabo-perl-0.92/lib/Alzabo/MethodMaker.pm-464- return $table->one_row( where => \@where, @_ ); }, ############################################## libalzabo-perl-0.92/lib/Alzabo/MethodMaker.pm-487- my %p = @_; libalzabo-perl-0.92/lib/Alzabo/MethodMaker.pm:488: my @where = map { [ $_->[0], '=', $self->select( $_->[1] ) ] } @reverse_pairs; libalzabo-perl-0.92/lib/Alzabo/MethodMaker.pm-489- if ( $p{where} ) ############################################## libalzabo-perl-0.92/lib/Alzabo/Runtime/Schema.pm-1040- join => [ $foo, $bar, $foo_alias ], libalzabo-perl-0.92/lib/Alzabo/Runtime/Schema.pm:1041: where => [ [ $bar->column('baz'), '=', 10 ], libalzabo-perl-0.92/lib/Alzabo/Runtime/Schema.pm-1042- [ $foo_alias->column('quux'), '=', 100 ] ], ############################################## libalzabo-perl-0.92/lib/Alzabo/Runtime/ForeignKey.pm-105- libalzabo-perl-0.92/lib/Alzabo/Runtime/ForeignKey.pm:106: unless ( $self->table_to->row_count( where => [ $col, '=', $val ] ) ) libalzabo-perl-0.92/lib/Alzabo/Runtime/ForeignKey.pm-107- { libalzabo-perl-0.92/lib/Alzabo/Runtime/ForeignKey.pm:108: Alzabo::Exception::ReferentialIntegrity->throw( error => 'Foreign key must exist in foreign table. No rows in ' . $self->table_to->name . ' where ' . $col->name . " = $val" ); libalzabo-perl-0.92/lib/Alzabo/Runtime/ForeignKey.pm-109- } ############################################## libalzabo-perl-0.92/lib/Alzabo/Runtime/ForeignKey.pm-122- # being deleted. libalzabo-perl-0.92/lib/Alzabo/Runtime/ForeignKey.pm:123: my @where = map { [ $_->[1], '=', $row->select( $_->[0]->name ) ] } $self->column_pairs; libalzabo-perl-0.92/lib/Alzabo/Runtime/ForeignKey.pm-124- my $cursor = $self->table_to->rows_where( where => \@where ); ############################################## libalzabo-perl-0.92/lib/Alzabo/Runtime/JoinCursor.pm-122- my $cursor = $schema->join( tables => [ $foo, $bar ], libalzabo-perl-0.92/lib/Alzabo/Runtime/JoinCursor.pm:123: where => [ $foo->column('foo_id'), '=', 1 ] ); libalzabo-perl-0.92/lib/Alzabo/Runtime/JoinCursor.pm-124- ############################################## libalzabo-perl-0.92/lib/Alzabo/Runtime.pm-49- libalzabo-perl-0.92/lib/Alzabo/Runtime.pm:50: $where = [ $where ] libalzabo-perl-0.92/lib/Alzabo/Runtime.pm-51- unless Alzabo::Utils::is_arrayref( $where->[0] ) || $where->[0] eq '('; ############################################## libalzabo-perl-0.92/lib/Alzabo/Intro.pod-264- $table->function( select => MAX( $table->column('budget') ), libalzabo-perl-0.92/lib/Alzabo/Intro.pod:265: where => [ $table->column('country'), '=', 'USA' ] ); libalzabo-perl-0.92/lib/Alzabo/Intro.pod-266-