=========================================================== .___ __ __ _________________ __ __ __| _/|__|/ |_ / ___\_` __ \__ \ | | \/ __ | | \\_ __\ / /_/ > | \// __ \| | / /_/ | | || | \___ /|__| (____ /____/\____ | |__||__| /_____/ \/ \/ grep rough audit - static analysis tool v2.8 written by @Wireghoul =================================[justanotherhacker.com]=== libdata-visitor-perl-0.31/t/circular_refs.t-124- libdata-visitor-perl-0.31/t/circular_refs.t:125: is( refaddr($orig->{bar}), refaddr( \( $orig->{foo}{bar} ) ), "scalar ref to hash element" ); libdata-visitor-perl-0.31/t/circular_refs.t-126- ############################################## libdata-visitor-perl-0.31/t/circular_refs.t-131- local $TODO = "hash/array elements are not yet references internally"; libdata-visitor-perl-0.31/t/circular_refs.t:132: is( refaddr($copy->{bar}), refaddr( \($copy->{foo}{bar}) ), "scalar ref in copy" ); libdata-visitor-perl-0.31/t/circular_refs.t-133-} ############################################## libdata-visitor-perl-0.31/t/circular_refs.t-141- libdata-visitor-perl-0.31/t/circular_refs.t:142: is( refaddr($orig->{bar}), refaddr( \( $orig->{foo} ) ), "scalar ref to sibling hash element" ); libdata-visitor-perl-0.31/t/circular_refs.t-143- ############################################## libdata-visitor-perl-0.31/t/circular_refs.t-148- local $TODO = "hash/array elements are not yet references internally"; libdata-visitor-perl-0.31/t/circular_refs.t:149: is( refaddr($copy->{bar}), refaddr( \($copy->{foo}) ), "scalar ref in copy" ); libdata-visitor-perl-0.31/t/circular_refs.t-150-} ############################################## libdata-visitor-perl-0.31/lib/Data/Visitor.pm-61- libdata-visitor-perl-0.31/lib/Data/Visitor.pm:62: if ( my $refaddr = ref($data) && refaddr($data) ) { # only references need recursion checks libdata-visitor-perl-0.31/lib/Data/Visitor.pm-63- $seen_hash->{weak} ||= isweak($data) if $self->weaken; ############################################## libdata-visitor-perl-0.31/lib/Data/Visitor.pm-90- my ( $self, $data ) = @_; libdata-visitor-perl-0.31/lib/Data/Visitor.pm:91: $self->{_seen}{ refaddr($data) }; libdata-visitor-perl-0.31/lib/Data/Visitor.pm-92-} ############################################## libdata-visitor-perl-0.31/lib/Data/Visitor.pm-97- $self->trace( mapping => register_mapping => from => $data, to => $new_data, in => (caller(1))[3] ) if DEBUG; libdata-visitor-perl-0.31/lib/Data/Visitor.pm:98: $self->{_seen}{ refaddr($data) } = $new_data; libdata-visitor-perl-0.31/lib/Data/Visitor.pm-99-} ############################################## libdata-visitor-perl-0.31/lib/Data/Visitor.pm-424- if ( @weak_refs ) { libdata-visitor-perl-0.31/lib/Data/Visitor.pm:425: my %targets = map { refaddr($_) => 1 } @{ $self->{_seen} }{@weak_refs}; libdata-visitor-perl-0.31/lib/Data/Visitor.pm-426- foreach my $value ( Data::Alias::deref($new) ) { libdata-visitor-perl-0.31/lib/Data/Visitor.pm:427: if ( ref $value and $targets{refaddr($value)}) { libdata-visitor-perl-0.31/lib/Data/Visitor.pm-428- push @{ $seen_hash->{weakened} ||= [] }, $value; # keep a ref around ############################################## libdata-visitor-perl-0.31/lib/Data/Visitor/Callback.pm-77- for my $data (@_) { libdata-visitor-perl-0.31/lib/Data/Visitor/Callback.pm:78: my $refaddr = ref($data) && refaddr($data); # we need this early, it may change by the time we write replaced hash libdata-visitor-perl-0.31/lib/Data/Visitor/Callback.pm-79- ############################################## libdata-visitor-perl-0.31/lib/Data/Visitor/Callback.pm-99- libdata-visitor-perl-0.31/lib/Data/Visitor/Callback.pm:100: $replaced_hash->{$refaddr} = $_ if $refaddr and ( not ref $_ or $refaddr ne refaddr($_) ); libdata-visitor-perl-0.31/lib/Data/Visitor/Callback.pm-101- ############################################## libdata-visitor-perl-0.31/lib/Data/Visitor/Callback.pm-125- no warnings 'uninitialized'; libdata-visitor-perl-0.31/lib/Data/Visitor/Callback.pm:126: if ( refaddr($mapped) == refaddr($data) ) { libdata-visitor-perl-0.31/lib/Data/Visitor/Callback.pm-127- return $result; ############################################## libdata-visitor-perl-0.31/lib/Data/Visitor/Callback.pm-173- no warnings "uninitialized"; libdata-visitor-perl-0.31/lib/Data/Visitor/Callback.pm:174: if ( refaddr($visited) != refaddr($data) ) { libdata-visitor-perl-0.31/lib/Data/Visitor/Callback.pm-175- return $self->_register_mapping( $data, $visited ); ############################################## libdata-visitor-perl-0.31/lib/Data/Visitor/Callback.pm-203- no warnings "uninitialized"; libdata-visitor-perl-0.31/lib/Data/Visitor/Callback.pm:204: if ( refaddr($visited) != refaddr($data) ) { libdata-visitor-perl-0.31/lib/Data/Visitor/Callback.pm-205- return $self->_register_mapping( $data, $visited ); ############################################## libdata-visitor-perl-0.31/lib/Data/Visitor/Callback.pm-223- no warnings 'uninitialized'; libdata-visitor-perl-0.31/lib/Data/Visitor/Callback.pm:224: if ( ref($value) and refaddr($value) != refaddr($new_value) ) { libdata-visitor-perl-0.31/lib/Data/Visitor/Callback.pm-225- $self->_register_mapping( $value, $new_value ); ############################################## libdata-visitor-perl-0.31/lib/Data/Visitor/Callback.pm-267- if ( ref $data ) { libdata-visitor-perl-0.31/lib/Data/Visitor/Callback.pm:268: if ( refaddr($data) != refaddr($new_data) ) { libdata-visitor-perl-0.31/lib/Data/Visitor/Callback.pm-269- return $self->_register_mapping( $data, $new_data );