===========================================================
.___ __ __
_________________ __ __ __| _/|__|/ |_
/ ___\_` __ \__ \ | | \/ __ | | \\_ __\
/ /_/ > | \// __ \| | / /_/ | | || |
\___ /|__| (____ /____/\____ | |__||__|
/_____/ \/ \/
grep rough audit - static analysis tool
v2.8 written by @Wireghoul
=================================[justanotherhacker.com]===
librose-db-object-perl-0.819/t/spot-check-04.t-215- my $db_name = $db->database;
librose-db-object-perl-0.819/t/spot-check-04.t:216: my $sth = $dbh->prepare("SHOW TABLE STATUS FROM `$db_name` LIKE ?");
librose-db-object-perl-0.819/t/spot-check-04.t-217- $sth->execute('rdbo_albums');
##############################################
librose-db-object-perl-0.819/t/inheritance.t-78-
librose-db-object-perl-0.819/t/inheritance.t:79: ok(refaddr(MyObject->meta->column('id')) ne refaddr(MySubObject->meta->column('id')), "meta column 1 - $db_type");
librose-db-object-perl-0.819/t/inheritance.t:80: ok(refaddr(MyObject->meta->column('id')) ne refaddr(MySubObject2->meta->column('id')), "meta column 2 - $db_type");
librose-db-object-perl-0.819/t/inheritance.t:81: ok(refaddr(MySubObject->meta->column('id')) ne refaddr(MySubObject2->meta->column('id')), "meta column 3 - $db_type");
librose-db-object-perl-0.819/t/inheritance.t-82-
##############################################
librose-db-object-perl-0.819/t/inheritance.t-86-
librose-db-object-perl-0.819/t/inheritance.t:87: is(refaddr(MyObject->meta->column('id')->parent), refaddr(MyObject->meta), "meta parent 1 - $db_type");
librose-db-object-perl-0.819/t/inheritance.t:88: is(refaddr(MySubObject->meta->column('id')->parent), refaddr(MySubObject->meta), "meta parent 2 - $db_type");
librose-db-object-perl-0.819/t/inheritance.t:89: is(refaddr(MySubObject2->meta->column('id')->parent), refaddr(MySubObject2->meta), "meta parent 3 - $db_type");
librose-db-object-perl-0.819/t/inheritance.t-90-
##############################################
librose-db-object-perl-0.819/t/inheritance.t-169-
librose-db-object-perl-0.819/t/inheritance.t:170: ok(refaddr(My2Object->meta->column('id')) ne refaddr(My2SubObject->meta->column('id')), "meta column 1 - $db_type");
librose-db-object-perl-0.819/t/inheritance.t:171: ok(refaddr(My2Object->meta->column('id')) ne refaddr(My2SubObject2->meta->column('id')), "meta column 2 - $db_type");
librose-db-object-perl-0.819/t/inheritance.t:172: ok(refaddr(My2SubObject->meta->column('id')) ne refaddr(My2SubObject2->meta->column('id')), "meta column 3 - $db_type");
librose-db-object-perl-0.819/t/inheritance.t-173-
##############################################
librose-db-object-perl-0.819/t/inheritance.t-177-
librose-db-object-perl-0.819/t/inheritance.t:178: is(refaddr(My2Object->meta->column('id')->parent), refaddr(My2Object->meta), "meta parent 1 - $db_type");
librose-db-object-perl-0.819/t/inheritance.t:179: is(refaddr(My2SubObject->meta->column('id')->parent), refaddr(My2SubObject->meta), "meta parent 2 - $db_type");
librose-db-object-perl-0.819/t/inheritance.t:180: is(refaddr(My2SubObject2->meta->column('id')->parent), refaddr(My2SubObject2->meta), "meta parent 3 - $db_type");
librose-db-object-perl-0.819/t/inheritance.t-181-
##############################################
librose-db-object-perl-0.819/t/db-object-foreign-key-auto.t-1997- my $db_name = $db->database;
librose-db-object-perl-0.819/t/db-object-foreign-key-auto.t:1998: my $sth = $dbh->prepare("SHOW TABLE STATUS FROM `$db_name` LIKE ?");
librose-db-object-perl-0.819/t/db-object-foreign-key-auto.t-1999- $sth->execute('Rose_db_object_other');
##############################################
librose-db-object-perl-0.819/t/db-object-loader-2.t-378- my $db_name = $db->database;
librose-db-object-perl-0.819/t/db-object-loader-2.t:379: my $sth = $dbh->prepare("SHOW TABLE STATUS FROM `$db_name` LIKE ?");
librose-db-object-perl-0.819/t/db-object-loader-2.t-380- $sth->execute('vendors');
##############################################
librose-db-object-perl-0.819/t/db-object-loader-8.t-116- my $db_name = $db->database;
librose-db-object-perl-0.819/t/db-object-loader-8.t:117: my $sth = $dbh->prepare("SHOW TABLE STATUS FROM `$db_name` LIKE ?");
librose-db-object-perl-0.819/t/db-object-loader-8.t-118- $sth->execute('attribute_types');
##############################################
librose-db-object-perl-0.819/t/db-object-loader-6.t-422- my $db_name = $db->database;
librose-db-object-perl-0.819/t/db-object-loader-6.t:423: my $sth = $dbh->prepare("SHOW TABLE STATUS FROM `$db_name` LIKE ?");
librose-db-object-perl-0.819/t/db-object-loader-6.t-424- $sth->execute('vendors');
##############################################
librose-db-object-perl-0.819/t/db-object-relationship-auto-2.t-385- my $db_name = $db->database;
librose-db-object-perl-0.819/t/db-object-relationship-auto-2.t:386: my $sth = $dbh->prepare("SHOW TABLE STATUS FROM `$db_name` LIKE ?");
librose-db-object-perl-0.819/t/db-object-relationship-auto-2.t-387- $sth->execute('vendors');
##############################################
librose-db-object-perl-0.819/t/as-tree.t-1348- my $db_name = $db->database;
librose-db-object-perl-0.819/t/as-tree.t:1349: my $sth = $dbh->prepare("SHOW TABLE STATUS FROM `$db_name` LIKE ?");
librose-db-object-perl-0.819/t/as-tree.t-1350- $sth->execute('regions');
##############################################
librose-db-object-perl-0.819/t/db-object-loader-5.t-484- my $db_name = $db->database;
librose-db-object-perl-0.819/t/db-object-loader-5.t:485: my $sth = $dbh->prepare("SHOW TABLE STATUS FROM `$db_name` LIKE ?");
librose-db-object-perl-0.819/t/db-object-loader-5.t-486- $sth->execute('vendors');
##############################################
librose-db-object-perl-0.819/t/db-object-relationship-auto.t-386- my $db_name = $db->database;
librose-db-object-perl-0.819/t/db-object-relationship-auto.t:387: my $sth = $dbh->prepare("SHOW TABLE STATUS FROM `$db_name` LIKE ?");
librose-db-object-perl-0.819/t/db-object-relationship-auto.t-388- $sth->execute('vendors');
##############################################
librose-db-object-perl-0.819/t/db-object-loader-4.t-357- my $db_name = $db->database;
librose-db-object-perl-0.819/t/db-object-loader-4.t:358: my $sth = $dbh->prepare("SHOW TABLE STATUS FROM `$db_name` LIKE ?");
librose-db-object-perl-0.819/t/db-object-loader-4.t-359- $sth->execute('vendors');
##############################################
librose-db-object-perl-0.819/t/leaks.t-83- {
librose-db-object-perl-0.819/t/leaks.t:84: my $first_size = `/bin/ps -orss= -p $$`;
librose-db-object-perl-0.819/t/leaks.t-85- my $last_size = 0;
##############################################
librose-db-object-perl-0.819/t/leaks.t-103-
librose-db-object-perl-0.819/t/leaks.t:104: my $size = `/bin/ps -orss= -p $$`;
librose-db-object-perl-0.819/t/leaks.t-105-
##############################################
librose-db-object-perl-0.819/t/leaks.t-112-
librose-db-object-perl-0.819/t/leaks.t:113: $last_size ||= `/bin/ps -orss= -p $$`;
librose-db-object-perl-0.819/t/leaks.t-114- my $leaked = $last_size - $first_size;
##############################################
librose-db-object-perl-0.819/t/leaks.t-359- my $db_name = $db->database;
librose-db-object-perl-0.819/t/leaks.t:360: my $sth = $dbh->prepare("SHOW TABLE STATUS FROM `$db_name` LIKE ?");
librose-db-object-perl-0.819/t/leaks.t-361- $sth->execute('vendors');
##############################################
librose-db-object-perl-0.819/t/db-object-loader.t-659- my $db_name = $db->database;
librose-db-object-perl-0.819/t/db-object-loader.t:660: my $sth = $dbh->prepare("SHOW TABLE STATUS FROM `$db_name` LIKE ?");
librose-db-object-perl-0.819/t/db-object-loader.t-661- $sth->execute('vendors');
##############################################
librose-db-object-perl-0.819/t/db-object-loader.t-691-
librose-db-object-perl-0.819/t/db-object-loader.t:692: @{[ join(', ', map { "`$_` INT" } @{$Reserved_Words{'mysql'}}) . ',' ]}
librose-db-object-perl-0.819/t/db-object-loader.t-693-
##############################################
librose-db-object-perl-0.819/t/test-lib.pl-315- my $db_name = $db->database;
librose-db-object-perl-0.819/t/test-lib.pl:316: my $sth = $dbh->prepare("SHOW TABLE STATUS FROM `$db_name` LIKE ?");
librose-db-object-perl-0.819/t/test-lib.pl-317- $sth->execute('rdbo_innodb_test');
##############################################
librose-db-object-perl-0.819/t/deep-joins.t-1421- my $db_name = $db->database;
librose-db-object-perl-0.819/t/deep-joins.t:1422: my $sth = $dbh->prepare("SHOW TABLE STATUS FROM `$db_name` LIKE ?");
librose-db-object-perl-0.819/t/deep-joins.t-1423- $sth->execute('regions');
##############################################
librose-db-object-perl-0.819/t/db-object-loader-3.t-319- my $db_name = $db->database;
librose-db-object-perl-0.819/t/db-object-loader-3.t:320: my $sth = $dbh->prepare("SHOW TABLE STATUS FROM `$db_name` LIKE ?");
librose-db-object-perl-0.819/t/db-object-loader-3.t-321- $sth->execute('vendors');
##############################################
librose-db-object-perl-0.819/t/make-modules.t-389- my $db_name = $db->database;
librose-db-object-perl-0.819/t/make-modules.t:390: my $sth = $dbh->prepare("SHOW TABLE STATUS FROM `$db_name` LIKE ?");
librose-db-object-perl-0.819/t/make-modules.t-391- $sth->execute('vendors');
##############################################
librose-db-object-perl-0.819/t/db-object-loader-7.t-402- my $db_name = $db->database;
librose-db-object-perl-0.819/t/db-object-loader-7.t:403: my $sth = $dbh->prepare("SHOW TABLE STATUS FROM `$db_name` LIKE ?");
librose-db-object-perl-0.819/t/db-object-loader-7.t-404- $sth->execute('vendor');
##############################################
librose-db-object-perl-0.819/lib/Rose/DB/Object/MakeMethods/Generic.pm-3442- $ft_manager->$ft_delete_method(object_class => $ft_class,
librose-db-object-perl-0.819/lib/Rose/DB/Object/MakeMethods/Generic.pm:3443: where => [ %key, @$query_args ],
librose-db-object-perl-0.819/lib/Rose/DB/Object/MakeMethods/Generic.pm-3444- db => $db);
##############################################
librose-db-object-perl-0.819/lib/Rose/DB/Object/MakeMethods/Generic.pm-3719- $ft_manager->$ft_delete_method(object_class => $ft_class,
librose-db-object-perl-0.819/lib/Rose/DB/Object/MakeMethods/Generic.pm:3720: where => [ %key, @$query_args ],
librose-db-object-perl-0.819/lib/Rose/DB/Object/MakeMethods/Generic.pm-3721- db => $db);
##############################################
librose-db-object-perl-0.819/lib/Rose/DB/Object/MakeMethods/Generic.pm-3938- $ft_manager->$ft_delete_method(object_class => $ft_class,
librose-db-object-perl-0.819/lib/Rose/DB/Object/MakeMethods/Generic.pm:3939: where => [ %key, @$query_args ],
librose-db-object-perl-0.819/lib/Rose/DB/Object/MakeMethods/Generic.pm-3940- db => $db);
##############################################
librose-db-object-perl-0.819/lib/Rose/DB/Object/MakeMethods/Generic.pm-4025- $ft_manager->$ft_delete_method(object_class => $ft_class,
librose-db-object-perl-0.819/lib/Rose/DB/Object/MakeMethods/Generic.pm:4026: where => [ %key, @$query_args ],
librose-db-object-perl-0.819/lib/Rose/DB/Object/MakeMethods/Generic.pm-4027- db => $db, @delete_args);
##############################################
librose-db-object-perl-0.819/lib/Rose/DB/Object/MakeMethods/Generic.pm-4720- # This should work too, if we want to keep the ref
librose-db-object-perl-0.819/lib/Rose/DB/Object/MakeMethods/Generic.pm:4721: #if(refaddr($map_rec->{$map_to}) == refaddr($o))
librose-db-object-perl-0.819/lib/Rose/DB/Object/MakeMethods/Generic.pm-4722- #{
##############################################
librose-db-object-perl-0.819/lib/Rose/DB/Object/MakeMethods/Generic.pm-4766- #
librose-db-object-perl-0.819/lib/Rose/DB/Object/MakeMethods/Generic.pm:4767: #if(refaddr($map_rec->{$map_to}) == refaddr($o))
librose-db-object-perl-0.819/lib/Rose/DB/Object/MakeMethods/Generic.pm-4768- #{
##############################################
librose-db-object-perl-0.819/lib/Rose/DB/Object/MakeMethods/Generic.pm-4985- # This should work too, if we want to keep the ref
librose-db-object-perl-0.819/lib/Rose/DB/Object/MakeMethods/Generic.pm:4986: #if(refaddr($map_rec->{$map_to}) == refaddr($o))
librose-db-object-perl-0.819/lib/Rose/DB/Object/MakeMethods/Generic.pm-4987- #{
##############################################
librose-db-object-perl-0.819/lib/Rose/DB/Object/MakeMethods/Generic.pm-5008- #
librose-db-object-perl-0.819/lib/Rose/DB/Object/MakeMethods/Generic.pm:5009: #if(refaddr($map_rec->{$map_to}) == refaddr($o))
librose-db-object-perl-0.819/lib/Rose/DB/Object/MakeMethods/Generic.pm-5010- #{
##############################################
librose-db-object-perl-0.819/lib/Rose/DB/Object/MakeMethods/Generic.pm-5300- # This should work too, if we want to keep the ref
librose-db-object-perl-0.819/lib/Rose/DB/Object/MakeMethods/Generic.pm:5301: #if(refaddr($map_rec->{$map_to}) == refaddr($o))
librose-db-object-perl-0.819/lib/Rose/DB/Object/MakeMethods/Generic.pm-5302- #{
##############################################
librose-db-object-perl-0.819/lib/Rose/DB/Object/MakeMethods/Generic.pm-5323- #
librose-db-object-perl-0.819/lib/Rose/DB/Object/MakeMethods/Generic.pm:5324: #if(refaddr($map_rec->{$map_to}) == refaddr($o))
librose-db-object-perl-0.819/lib/Rose/DB/Object/MakeMethods/Generic.pm-5325- #{
##############################################
librose-db-object-perl-0.819/lib/Rose/DB/Object/MakeMethods/Generic.pm-5590- # This should work too, if we want to keep the ref
librose-db-object-perl-0.819/lib/Rose/DB/Object/MakeMethods/Generic.pm:5591: #if(refaddr($map_rec->{$map_to}) == refaddr($o))
librose-db-object-perl-0.819/lib/Rose/DB/Object/MakeMethods/Generic.pm-5592- #{
##############################################
librose-db-object-perl-0.819/lib/Rose/DB/Object/MakeMethods/Generic.pm-5613- #
librose-db-object-perl-0.819/lib/Rose/DB/Object/MakeMethods/Generic.pm:5614: #if(refaddr($map_rec->{$map_to}) == refaddr($o))
librose-db-object-perl-0.819/lib/Rose/DB/Object/MakeMethods/Generic.pm-5615- #{
##############################################
librose-db-object-perl-0.819/lib/Rose/DB/Object/Metadata.pm-3485-# grep { !$key{$_} } $self->column_names) .
librose-db-object-perl-0.819/lib/Rose/DB/Object/Metadata.pm:3486:# "\nWHERE " . join(' AND ', map { defined $key_values->[$i++] ? "$_ = ?" : "$_ IS NULL" }
librose-db-object-perl-0.819/lib/Rose/DB/Object/Metadata.pm-3487-# map { $self->column($_)->name_sql($db) } @$key_columns);
##############################################
librose-db-object-perl-0.819/lib/Rose/DB/Object/QueryBuilder.pm-558- my $pad = ' ' x $args{'_depth'};
librose-db-object-perl-0.819/lib/Rose/DB/Object/QueryBuilder.pm:559: $where = join("$logic\n", map { "$pad$_" } @clauses);
librose-db-object-perl-0.819/lib/Rose/DB/Object/QueryBuilder.pm-560- }
##############################################
librose-db-object-perl-0.819/lib/Rose/DB/Object/QueryBuilder.pm-562- {
librose-db-object-perl-0.819/lib/Rose/DB/Object/QueryBuilder.pm:563: $where = join("$logic\n", map { " $_" } @clauses);
librose-db-object-perl-0.819/lib/Rose/DB/Object/QueryBuilder.pm-564- }
##############################################
librose-db-object-perl-0.819/lib/Rose/DB/Object/Metadata/Auto/MySQL.pm-239-
librose-db-object-perl-0.819/lib/Rose/DB/Object/Metadata/Auto/MySQL.pm:240: my $sth = $dbh->prepare("SHOW CREATE TABLE `$db_name`.`" . $self->table . '`');
librose-db-object-perl-0.819/lib/Rose/DB/Object/Metadata/Auto/MySQL.pm-241- $sth->execute;
##############################################
librose-db-object-perl-0.819/lib/Rose/DB/Object/Metadata/Auto/MySQL.pm-286- # XXX: This is not bullet-proof
librose-db-object-perl-0.819/lib/Rose/DB/Object/Metadata/Auto/MySQL.pm:287: my @local_columns = map { s/^`//; s/`$//; s/``/`/g; $_ } split(/,? /, $local_columns);
librose-db-object-perl-0.819/lib/Rose/DB/Object/Metadata/Auto/MySQL.pm:288: my @foreign_columns = map { s/^`//; s/`$//; s/``/`/g; $_ } split(/,? /, $foreign_columns);
librose-db-object-perl-0.819/lib/Rose/DB/Object/Metadata/Auto/MySQL.pm-289-
##############################################
librose-db-object-perl-0.819/lib/Rose/DB/Object/Metadata/Auto/MySQL.pm-293- "'$row->{'Create Table'}' returned by the query '",
librose-db-object-perl-0.819/lib/Rose/DB/Object/Metadata/Auto/MySQL.pm:294: "SHOW CREATE TABLE `$db_name`.`" . $self->table . '`';
librose-db-object-perl-0.819/lib/Rose/DB/Object/Metadata/Auto/MySQL.pm-295- }
##############################################
librose-db-object-perl-0.819/lib/Rose/DB/Object/Manager.pm-3300-
librose-db-object-perl-0.819/lib/Rose/DB/Object/Manager.pm:3301: my $where = delete $args{'where'};
librose-db-object-perl-0.819/lib/Rose/DB/Object/Manager.pm-3302- my $set = delete $args{'set'}