=========================================================== .___ __ __ _________________ __ __ __| _/|__|/ |_ / ___\_` __ \__ \ | | \/ __ | | \\_ __\ / /_/ > | \// __ \| | / /_/ | | || | \___ /|__| (____ /____/\____ | |__||__| /_____/ \/ \/ grep rough audit - static analysis tool v2.8 written by @Wireghoul =================================[justanotherhacker.com]=== libppix-regexp-perl-0.075/eg/predump-88- push @rslt, extract_res( $doc, $opt ); libppix-regexp-perl-0.075/eg/predump:89: $file{ refaddr( $doc ) } = { libppix-regexp-perl-0.075/eg/predump-90- name => $datum, ############################################## libppix-regexp-perl-0.075/inc/My/Module/Test.pm-146- } elsif ( ref $left && ref $right ) { libppix-regexp-perl-0.075/inc/My/Module/Test.pm:147: return ok( refaddr( $left ) != refaddr( $right ), $name ); libppix-regexp-perl-0.075/inc/My/Module/Test.pm-148- } elsif ( ref $left || ref $right ) { ############################################## libppix-regexp-perl-0.075/inc/My/Module/Test.pm-190- } elsif ( ref $left && ref $right ) { libppix-regexp-perl-0.075/inc/My/Module/Test.pm:191: return ok( refaddr( $left ) == refaddr( $right ), $name ); libppix-regexp-perl-0.075/inc/My/Module/Test.pm-192- } elsif ( ref $left || ref $right ) { ############################################## libppix-regexp-perl-0.075/lib/PPIx/Regexp.pm-421- libppix-regexp-perl-0.075/lib/PPIx/Regexp.pm:422: my $addr = refaddr( $content ); libppix-regexp-perl-0.075/lib/PPIx/Regexp.pm-423- exists $cache{$addr} and return $cache{$addr}; ############################################## libppix-regexp-perl-0.075/lib/PPIx/Regexp.pm-443- 'PPI::Element' ) ) { libppix-regexp-perl-0.075/lib/PPIx/Regexp.pm:444: delete $cache{ refaddr( $parent ) }; libppix-regexp-perl-0.075/lib/PPIx/Regexp.pm-445- } ############################################## libppix-regexp-perl-0.075/lib/PPIx/Regexp/Element.pm-121- __instance( $elem, __PACKAGE__ ) or return; libppix-regexp-perl-0.075/lib/PPIx/Regexp/Element.pm:122: my $addr = refaddr( $self ); libppix-regexp-perl-0.075/lib/PPIx/Regexp/Element.pm:123: while ( $addr != refaddr( $elem ) ) { libppix-regexp-perl-0.075/lib/PPIx/Regexp/Element.pm-124- $elem = $elem->_parent() or return; ############################################## libppix-regexp-perl-0.075/lib/PPIx/Regexp/Element.pm-1041- my $parent = $self->_parent() or return; libppix-regexp-perl-0.075/lib/PPIx/Regexp/Element.pm:1042: my $addr = refaddr( $self ); libppix-regexp-perl-0.075/lib/PPIx/Regexp/Element.pm-1043- my @elem = $parent->elements(); libppix-regexp-perl-0.075/lib/PPIx/Regexp/Element.pm:1044: return first { refaddr( $elem[$_] ) == $addr } 0 .. $#elem; libppix-regexp-perl-0.075/lib/PPIx/Regexp/Element.pm-1045-} ############################################## libppix-regexp-perl-0.075/lib/PPIx/Regexp/Element.pm-1058- my $parent = $self->_parent() or return; libppix-regexp-perl-0.075/lib/PPIx/Regexp/Element.pm:1059: my $addr = refaddr( $self ); libppix-regexp-perl-0.075/lib/PPIx/Regexp/Element.pm-1060- foreach my $method ( qw{ children start type finish } ) { ############################################## libppix-regexp-perl-0.075/lib/PPIx/Regexp/Element.pm-1062- my @elem = $parent->$method(); libppix-regexp-perl-0.075/lib/PPIx/Regexp/Element.pm:1063: defined( my $inx = first { refaddr( $elem[$_] ) == $addr } libppix-regexp-perl-0.075/lib/PPIx/Regexp/Element.pm-1064- 0 .. $#elem ) ############################################## libppix-regexp-perl-0.075/lib/PPIx/Regexp/Element.pm-1077- my ( $self, @arg ) = @_; libppix-regexp-perl-0.075/lib/PPIx/Regexp/Element.pm:1078: my $addr = refaddr( $self ); libppix-regexp-perl-0.075/lib/PPIx/Regexp/Element.pm-1079- if ( @arg ) { ############################################## libppix-regexp-perl-0.075/lib/PPIx/Regexp/Node.pm-133- libppix-regexp-perl-0.075/lib/PPIx/Regexp/Node.pm:134: my $addr = refaddr( $self ); libppix-regexp-perl-0.075/lib/PPIx/Regexp/Node.pm-135- libppix-regexp-perl-0.075/lib/PPIx/Regexp/Node.pm-136- while ( $elem = $elem->parent() ) { libppix-regexp-perl-0.075/lib/PPIx/Regexp/Node.pm:137: $addr == refaddr( $elem ) and return 1; libppix-regexp-perl-0.075/lib/PPIx/Regexp/Node.pm-138- } ############################################## libppix-regexp-perl-0.075/lib/PPIx/Regexp/Node.pm-249- my $dad = $elem->parent() or next; libppix-regexp-perl-0.075/lib/PPIx/Regexp/Node.pm:250: $parents{ refaddr( $dad ) }++ libppix-regexp-perl-0.075/lib/PPIx/Regexp/Node.pm-251- or push @rslt, $dad; ############################################## libppix-regexp-perl-0.075/lib/PPIx/Regexp/Node.pm-516- my ( $self, $child ) = @_; libppix-regexp-perl-0.075/lib/PPIx/Regexp/Node.pm:517: refaddr( $child->parent() ) == refaddr( $self ) libppix-regexp-perl-0.075/lib/PPIx/Regexp/Node.pm-518- or return; ############################################## libppix-regexp-perl-0.075/t/unit-adhoc.t-54- # The following is what this block is all about. libppix-regexp-perl-0.075/t/unit-adhoc.t:55: cmp_ok refaddr( $got_stmt ), '==', refaddr( $stmt[0] ), libppix-regexp-perl-0.075/t/unit-adhoc.t-56- 'statement() called on literal returned original PPI statement'; ############################################## libppix-regexp-perl-0.075/t/unit.t-1167- my $doc2 = result(); libppix-regexp-perl-0.075/t/unit.t:1168: cmp_ok( refaddr( $doc1 ), '==', refaddr( $doc2 ), libppix-regexp-perl-0.075/t/unit.t-1169- 'Ensure we get back the same object from both calls to ppi()' );