===========================================================
                                      .___ __  __   
          _________________  __ __  __| _/|__|/  |_ 
         / ___\_` __ \__  \ |  |  \/ __ | | \\_  __\
        / /_/  >  | \// __ \|  |  / /_/ | |  ||  |  
        \___  /|__|  (____  /____/\____ | |__||__|  
       /_____/            \/           \/           
              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()' );