===========================================================
.___ __ __
_________________ __ __ __| _/|__|/ |_
/ ___\_` __ \__ \ | | \/ __ | | \\_ __\
/ /_/ > | \// __ \| | / /_/ | | || |
\___ /|__| (____ /____/\____ | |__||__|
/_____/ \/ \/
grep rough audit - static analysis tool
v2.8 written by @Wireghoul
=================================[justanotherhacker.com]===
libtangram-perl-2.12/t/springfield/07-weakref.t-58- $obj = {};
libtangram-perl-2.12/t/springfield/07-weakref.t:59: diag("got ".sprintf("0x%.8x",refaddr($obj))
libtangram-perl-2.12/t/springfield/07-weakref.t-60- .", looking for ".sprintf("0x%.8x",$_[0]||0)) if $VERBOSE;
libtangram-perl-2.12/t/springfield/07-weakref.t:61: last if refaddr($obj) == ($_[0] ||= refaddr($obj));
libtangram-perl-2.12/t/springfield/07-weakref.t-62- $obj = undef;
##############################################
libtangram-perl-2.12/t/springfield/07-weakref.t-104- } else {
libtangram-perl-2.12/t/springfield/07-weakref.t:105: diag("wohoo! I got ".sprintf("0x%.8x",refaddr($sameid)
libtangram-perl-2.12/t/springfield/07-weakref.t-106- )) if $VERBOSE;
##############################################
libtangram-perl-2.12/t/springfield/31-set.t-235-
libtangram-perl-2.12/t/springfield/31-set.t:236: #print "# `", join( ' ', sort map { $_->{firstName} } @results ),"' vs `", $parents,"'\n";
libtangram-perl-2.12/t/springfield/31-set.t-237- Springfield::test( join( ' ', sort map { $_->{firstName} } @results ) eq $parents );
##############################################
libtangram-perl-2.12/t/misc/back-inflation.t-66-use Scalar::Util qw(refaddr);
libtangram-perl-2.12/t/misc/back-inflation.t:67:is(refaddr($owner), refaddr($person), "same person");
libtangram-perl-2.12/t/misc/back-inflation.t-68-
##############################################
libtangram-perl-2.12/t/DBConfig.pm-29-eval "use $dialect";
libtangram-perl-2.12/t/DBConfig.pm:30:($dialect = 'Tangram::Relational'), eval("use $dialect") if $@;
libtangram-perl-2.12/t/DBConfig.pm-31-print $Tangram::TRACE "Vendor driver $dialect not found - using ANSI SQL ($@)\n"
##############################################
libtangram-perl-2.12/lib/Tangram/Expr/FlatHash.pm-46- (
libtangram-perl-2.12/lib/Tangram/Expr/FlatHash.pm:47: expr => "EXISTS (SELECT * FROM $memdef->{table} WHERE coll = $coll_tid.$schema->{sql}{id_col} AND v = $item)",
libtangram-perl-2.12/lib/Tangram/Expr/FlatHash.pm-48- objects => Set::Object->new($coll),
##############################################
libtangram-perl-2.12/lib/Tangram/Expr/FlatArray.pm-52- (
libtangram-perl-2.12/lib/Tangram/Expr/FlatArray.pm:53: expr => "EXISTS (SELECT * FROM $memdef->{table} WHERE coll = $coll_tid.$schema->{sql}{id_col} AND v = $item)",
libtangram-perl-2.12/lib/Tangram/Expr/FlatArray.pm-54- objects => Set::Object->new($coll),
##############################################
libtangram-perl-2.12/lib/Tangram/Compat.pm-173- @INC = grep { defined and
libtangram-perl-2.12/lib/Tangram/Compat.pm:174: (!ref($_) or refaddr($_) ne refaddr($self)) }
libtangram-perl-2.12/lib/Tangram/Compat.pm-175- @INC;
##############################################
libtangram-perl-2.12/lib/Tangram/Cursor.pm-252- ( $ofrom ? ( ofrom => $ofrom ) : () ),
libtangram-perl-2.12/lib/Tangram/Cursor.pm:253: ( $owhere ? ( owhere => $owhere ) : () ),
libtangram-perl-2.12/lib/Tangram/Cursor.pm-254- @options,
##############################################
libtangram-perl-2.12/lib/Tangram/Storage.pm-168- if ($id) {
libtangram-perl-2.12/lib/Tangram/Storage.pm:169: $self->{ids}{refaddr($obj)} = [$id, \$self->{objects}{$id}];
libtangram-perl-2.12/lib/Tangram/Storage.pm-170- } else {
libtangram-perl-2.12/lib/Tangram/Storage.pm:171: delete $self->{ids}{refaddr($obj)};
libtangram-perl-2.12/lib/Tangram/Storage.pm-172- }
##############################################
libtangram-perl-2.12/lib/Tangram/Storage.pm-177- ref $obj or return undef;
libtangram-perl-2.12/lib/Tangram/Storage.pm:178: my $address = refaddr($obj)
libtangram-perl-2.12/lib/Tangram/Storage.pm:179: or do { warn "Object $obj has no refaddr(?)";
libtangram-perl-2.12/lib/Tangram/Storage.pm-180- return undef };
##############################################
libtangram-perl-2.12/lib/Tangram/Storage.pm-186- $id = undef;
libtangram-perl-2.12/lib/Tangram/Storage.pm:187: } elsif ( $id and refaddr($self->{objects}{$id->[0]}) != $address ) {
libtangram-perl-2.12/lib/Tangram/Storage.pm-188- delete $self->{ids}{$address};
##############################################
libtangram-perl-2.12/lib/Tangram/Storage.pm-367- my $table = $self->{schema}{class_table};
libtangram-perl-2.12/lib/Tangram/Storage.pm:368: $self->sql_do("UPDATE $table SET lastObjectId = lastObjectId + 1 WHERE classId = $class_id");
libtangram-perl-2.12/lib/Tangram/Storage.pm-369- $id = $self
libtangram-perl-2.12/lib/Tangram/Storage.pm:370: ->sql_selectall_arrayref("SELECT lastObjectId from $table WHERE classId = $class_id")->[0][0];
libtangram-perl-2.12/lib/Tangram/Storage.pm-371- $alloc_id->{$class_id} = -$id;
##############################################
libtangram-perl-2.12/lib/Tangram/Storage.pm-510- next if $id < 0;
libtangram-perl-2.12/lib/Tangram/Storage.pm:511: $self->sql_do("UPDATE $table SET lastObjectId = $id WHERE classId = $class_id");
libtangram-perl-2.12/lib/Tangram/Storage.pm-512- }
##############################################
libtangram-perl-2.12/lib/Tangram/Relational/PolySelectTemplate.pm-40- my @from = map { sprintf $_, map { $tables[$expand->[$i++]] } m{(%d)}g } @$from;
libtangram-perl-2.12/lib/Tangram/Relational/PolySelectTemplate.pm:41: my @where = map { sprintf $_, map { $tables[$expand->[$i++]] } m{(%d)}g } @$where;
libtangram-perl-2.12/lib/Tangram/Relational/PolySelectTemplate.pm-42-
##############################################
libtangram-perl-2.12/lib/Tangram/Relational/PolySelectTemplate.pm-66- # add outer join clauses
libtangram-perl-2.12/lib/Tangram/Relational/PolySelectTemplate.pm:67: if ( my $owhere = $o{owhere} or $o{any_outer} ) {
libtangram-perl-2.12/lib/Tangram/Relational/PolySelectTemplate.pm-68-
##############################################
libtangram-perl-2.12/lib/Tangram/Relational/PolySelectTemplate.pm-175- if ( $o{any_outer} ) {
libtangram-perl-2.12/lib/Tangram/Relational/PolySelectTemplate.pm:176: my $old_where = set(@where, @xwhere) * $owhere;
libtangram-perl-2.12/lib/Tangram/Relational/PolySelectTemplate.pm:177: $owhere -= $old_where;
libtangram-perl-2.12/lib/Tangram/Relational/PolySelectTemplate.pm-178- (@where, @xwhere) = $old_where->members;
##############################################
libtangram-perl-2.12/lib/Tangram/Util.pm-30- elsif ( ref $_[0] ) {
libtangram-perl-2.12/lib/Tangram/Util.pm:31: push @r, ref($_[0]), "@", sprintf("0x%.8x", refaddr($_[0])),
libtangram-perl-2.12/lib/Tangram/Util.pm-32- (blessed($_[0]) ? (" (", reftype($_[0]), ")") : ()),
##############################################
libtangram-perl-2.12/lib/Tangram/Type/Dump/YAML.pm-102- \$obj->{$self->{name}} = eval { YAML::thaw(\$x) };\n"
libtangram-perl-2.12/lib/Tangram/Type/Dump/YAML.pm:103: .'die("YAML error; `$@` loading: |\n$x\n...\n") if $@;'
libtangram-perl-2.12/lib/Tangram/Type/Dump/YAML.pm-104- ."Tangram::Type::Dump::unflatten(\$context->{storage}, "
##############################################
libtangram-perl-2.12/lib/Tangram/Type/Set/FromMany.pm-54- }
libtangram-perl-2.12/lib/Tangram/Type/Set/FromMany.pm:55: my $sql = "DELETE FROM $table WHERE $coll_col = $coll_id AND $item_col = $_[0]";
libtangram-perl-2.12/lib/Tangram/Type/Set/FromMany.pm-56- $storage->sql_do($sql);
##############################################
libtangram-perl-2.12/lib/Tangram/Type/Ref/FromOne.pm-69- {
libtangram-perl-2.12/lib/Tangram/Type/Ref/FromOne.pm:70: my $sql = "UPDATE $table SET $item_col = NULL WHERE id = @_ AND $item_col = $coll_id";
libtangram-perl-2.12/lib/Tangram/Type/Ref/FromOne.pm-71- $storage->sql_do($sql);
##############################################
libtangram-perl-2.12/lib/Tangram/Type/Ref/FromOne.pm-121- my $item_col = $def->{coll};
libtangram-perl-2.12/lib/Tangram/Type/Ref/FromOne.pm:122: $storage->sql_do("UPDATE $table SET $item_col = NULL WHERE $item_col = $coll_id");
libtangram-perl-2.12/lib/Tangram/Type/Ref/FromOne.pm-123- }
##############################################
libtangram-perl-2.12/lib/Tangram/Type/Ref/FromMany.pm-72- # patch the column in the referant
libtangram-perl-2.12/lib/Tangram/Type/Ref/FromMany.pm:73: $storage->sql_do( "UPDATE $table SET $self->{col} = $refid WHERE $schema->{sql}{id_col} = $id" );
libtangram-perl-2.12/lib/Tangram/Type/Ref/FromMany.pm-74- } );
##############################################
libtangram-perl-2.12/lib/Tangram/Type/Ref/FromMany.pm-116- # patch the column in the referant
libtangram-perl-2.12/lib/Tangram/Type/Ref/FromMany.pm:117: $storage->sql_do( "UPDATE $table SET $self->{col} = $ref_id, $self->{type_col} = $type_id WHERE $schema->{sql}{id_col} = $exp_id" );
libtangram-perl-2.12/lib/Tangram/Type/Ref/FromMany.pm-118- } );
##############################################
libtangram-perl-2.12/lib/Tangram/Driver/mysql/Storage.pm-16- my $table = $storage->{schema}{class_table};
libtangram-perl-2.12/lib/Tangram/Driver/mysql/Storage.pm:17: $storage->sql_do("UPDATE $table SET lastObjectId = LAST_INSERT_ID(lastObjectId + 1) WHERE classId = $class_id");
libtangram-perl-2.12/lib/Tangram/Driver/mysql/Storage.pm-18- } else {