=========================================================== .___ __ __ _________________ __ __ __| _/|__|/ |_ / ___\_` __ \__ \ | | \/ __ | | \\_ __\ / /_/ > | \// __ \| | / /_/ | | || | \___ /|__| (____ /____/\____ | |__||__| /_____/ \/ \/ grep rough audit - static analysis tool v2.8 written by @Wireghoul =================================[justanotherhacker.com]=== libkiokudb-backend-dbi-perl-1.23/t/dbic.t-195- libkiokudb-backend-dbi-perl-1.23/t/dbic.t:196: is( refaddr($rs->result_source->schema), refaddr($dir->backend->schema), "schema restored in resultset handle" ); libkiokudb-backend-dbi-perl-1.23/t/dbic.t-197- ############################################## libkiokudb-backend-dbi-perl-1.23/t/dbic.t-228- libkiokudb-backend-dbi-perl-1.23/t/dbic.t:229: is( refaddr($schema), refaddr($dir->backend->schema), "schema restored" ); libkiokudb-backend-dbi-perl-1.23/t/dbic.t-230-}); ############################################## libkiokudb-backend-dbi-perl-1.23/t/autovivify_handle.t-51- isa_ok( my $k = $schema->kiokudb_handle, "KiokuDB" ); libkiokudb-backend-dbi-perl-1.23/t/autovivify_handle.t:52: $refaddr = refaddr($k); libkiokudb-backend-dbi-perl-1.23/t/autovivify_handle.t-53- } ############################################## libkiokudb-backend-dbi-perl-1.23/t/autovivify_handle.t-55- { libkiokudb-backend-dbi-perl-1.23/t/autovivify_handle.t:56: is( refaddr($schema->kiokudb_handle), $refaddr, "KiokuDB handle not weak when autovivified" ); libkiokudb-backend-dbi-perl-1.23/t/autovivify_handle.t-57- } ############################################## libkiokudb-backend-dbi-perl-1.23/lib/DBIx/Class/Schema/KiokuDB.pm-62- if ( $self->{kiokudb_handle} ) { libkiokudb-backend-dbi-perl-1.23/lib/DBIx/Class/Schema/KiokuDB.pm:63: if ( refaddr($self->{kiokudb_handle}) != refaddr($handle) ) { libkiokudb-backend-dbi-perl-1.23/lib/DBIx/Class/Schema/KiokuDB.pm-64- croak "KiokuDB directory already registered"; ############################################## libkiokudb-backend-dbi-perl-1.23/lib/KiokuDB/Backend/DBI.pm-641- } catch { libkiokudb-backend-dbi-perl-1.23/lib/KiokuDB/Backend/DBI.pm:642: die $_ if ref $_ and refaddr($_) == refaddr($err); libkiokudb-backend-dbi-perl-1.23/lib/KiokuDB/Backend/DBI.pm-643- } or return; ############################################## libkiokudb-backend-dbi-perl-1.23/lib/KiokuDB/TypeMap/Entry/DBIC/Schema.pm-25- libkiokudb-backend-dbi-perl-1.23/lib/KiokuDB/TypeMap/Entry/DBIC/Schema.pm:26: if ( refaddr($collapser->backend->schema) == refaddr($args{object}) ) { libkiokudb-backend-dbi-perl-1.23/lib/KiokuDB/TypeMap/Entry/DBIC/Schema.pm-27- return $collapser->make_entry( ############################################## libkiokudb-backend-dbi-perl-1.23/lib/KiokuDB/TypeMap/Entry/DBIC/ResultSource.pm-25- libkiokudb-backend-dbi-perl-1.23/lib/KiokuDB/TypeMap/Entry/DBIC/ResultSource.pm:26: if ( refaddr($collapser->backend->schema) == refaddr($args{object}->schema) ) { libkiokudb-backend-dbi-perl-1.23/lib/KiokuDB/TypeMap/Entry/DBIC/ResultSource.pm-27- return $collapser->make_entry(