===========================================================
                                      .___ __  __   
          _________________  __ __  __| _/|__|/  |_ 
         / ___\_` __ \__  \ |  |  \/ __ | | \\_  __\
        / /_/  >  | \// __ \|  |  / /_/ | |  ||  |  
        \___  /|__|  (____  /____/\____ | |__||__|  
       /_____/            \/           \/           
              grep rough audit - static analysis tool
                  v2.8 written by @Wireghoul
=================================[justanotherhacker.com]===
libdata-perl-perl-0.002011/t/collection/hash.t-70-$h = hash(a=>1,b=>2);
libdata-perl-perl-0.002011/t/collection/hash.t:71:my $old_addr = refaddr($h);
libdata-perl-perl-0.002011/t/collection/hash.t-72-$h->clear;
libdata-perl-perl-0.002011/t/collection/hash.t-73-is_deeply {%{$h}}, {}, 'clear works';
libdata-perl-perl-0.002011/t/collection/hash.t:74:is refaddr($h), $old_addr, 'refaddr matches on clear';
libdata-perl-perl-0.002011/t/collection/hash.t-75-
##############################################
libdata-perl-perl-0.002011/t/collection/hash.t-96-cmp_bag [$h->kv->all], [[qw/a 1/], [qw/b 2/]], 'shallow clone is a clone';
libdata-perl-perl-0.002011/t/collection/hash.t:97:isnt refaddr($h), refaddr($foo), 'refaddr doesnt match on clone';
libdata-perl-perl-0.002011/t/collection/hash.t-98-
##############################################
libdata-perl-perl-0.002011/t/collection/array.t-218-
libdata-perl-perl-0.002011/t/collection/array.t:219:isnt refaddr($ar), refaddr($foo), 'refaddr doesnt match on clone';
libdata-perl-perl-0.002011/t/collection/array.t-220-