ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/Devel-FindRef/FindRef.pm
(Generate patch)

Comparing Devel-FindRef/FindRef.pm (file contents):
Revision 1.20 by root, Sat Dec 6 12:42:49 2008 UTC vs.
Revision 1.26 by root, Sun Aug 30 14:39:23 2009 UTC

1package Devel::FindRef; 1package Devel::FindRef;
2 2
3no warnings; # I hate warning nazis 3use common::sense;
4use strict;
5 4
6use XSLoader; 5use XSLoader;
7use Scalar::Util; 6use Scalar::Util;
8 7
9BEGIN { 8BEGIN {
10 our $VERSION = '1.4'; 9 our $VERSION = '1.422';
11 XSLoader::load __PACKAGE__, $VERSION; 10 XSLoader::load __PACKAGE__, $VERSION;
12} 11}
13 12
14=head1 NAME 13=head1 NAME
15 14
… …
60The output is as follows (or similar to this, in case I forget to update 59The output is as follows (or similar to this, in case I forget to update
61the manpage after some changes): 60the manpage after some changes):
62 61
63 SCALAR(0x7cc888) [refcount 6] is 62 SCALAR(0x7cc888) [refcount 6] is
64 +- referenced by REF(0x8abcc8) [refcount 1], which is 63 +- referenced by REF(0x8abcc8) [refcount 1], which is
65 | in the lexical '$closure_var' in CODE(0x8abc50) [refcount 4], which is 64 | the lexical '$closure_var' in CODE(0x8abc50) [refcount 4], which is
66 | +- the closure created at tst:18. 65 | +- the closure created at tst:18.
67 | +- referenced by REF(0x7d3c58) [refcount 1], which is 66 | +- referenced by REF(0x7d3c58) [refcount 1], which is
68 | | in the lexical '$closure' in CODE(0x7ae530) [refcount 2], which is 67 | | the lexical '$closure' in CODE(0x7ae530) [refcount 2], which is
69 | | +- the containing scope for CODE(0x8ab430) [refcount 3], which is 68 | | +- the containing scope for CODE(0x8ab430) [refcount 3], which is
70 | | | in the global &Test::testsub. 69 | | | the global &Test::testsub.
71 | | +- the main body of the program. 70 | | +- the main body of the program.
72 | +- in the lexical '&' in CODE(0x7ae530) [refcount 2], which was seen before. 71 | +- the lexical '&' in CODE(0x7ae530) [refcount 2], which was seen before.
73 +- referenced by REF(0x7cc7c8) [refcount 1], which is 72 +- referenced by REF(0x7cc7c8) [refcount 1], which is
74 | in the lexical '$global_my' in CODE(0x7ae530) [refcount 2], which was seen before. 73 | the lexical '$global_my' in CODE(0x7ae530) [refcount 2], which was seen before.
75 +- in the global $Test::var. 74 +- the global $Test::var.
76 +- referenced by REF(0x7cc558) [refcount 1], which is 75 +- referenced by REF(0x7cc558) [refcount 1], which is
77 | in the member 'ukukey2' of HASH(0x7ae140) [refcount 2], which is 76 | the member 'ukukey2' of HASH(0x7ae140) [refcount 2], which is
78 | +- referenced by REF(0x8abad0) [refcount 1], which is 77 | +- referenced by REF(0x8abad0) [refcount 1], which is
79 | | in the lexical '$testsub_local' in CODE(0x8ab430) [refcount 3], which was seen before. 78 | | the lexical '$testsub_local' in CODE(0x8ab430) [refcount 3], which was seen before.
80 | +- referenced by REF(0x8ab4f0) [refcount 1], which is 79 | +- referenced by REF(0x8ab4f0) [refcount 1], which is
81 | in the global $Test::global_hashref. 80 | the global $Test::global_hashref.
82 +- referenced by REF(0x7ae518) [refcount 1], which is 81 +- referenced by REF(0x7ae518) [refcount 1], which is
83 | in the member 'ukukey' of HASH(0x7d3bb0) [refcount 1], which is 82 | the member 'ukukey' of HASH(0x7d3bb0) [refcount 1], which is
84 | in the global %Test::global_hash. 83 | the global %Test::global_hash.
85 +- referenced by REF(0x7ae2f0) [refcount 1], which is 84 +- referenced by REF(0x7ae2f0) [refcount 1], which is
86 a temporary on the stack. 85 a temporary on the stack.
87 86
88It is a bit convoluted to read, but basically it says that the value 87It is a bit convoluted to read, but basically it says that the value
89stored in C<$var> is referenced by: 88stored in C<$var> is referenced by:
… …
151 150
152 if ($depth) { 151 if ($depth) {
153 my (@about) = find $$refref; 152 my (@about) = find $$refref;
154 if (@about) { 153 if (@about) {
155 for my $about (@about) { 154 for my $about (@about) {
155 $about->[0] =~ s/([^\x20-\x7e])/sprintf "\\{%02x}", ord $1/ge;
156 $buf .= "$indent" . (@about > 1 ? "+- " : "") . $about->[0]; 156 $buf .= "$indent" . (@about > 1 ? "+- " : "") . $about->[0];
157 if (@$about > 1) { 157 if (@$about > 1) {
158 if ($seen{ref2ptr $about->[1]}++) { 158 if ($seen{ref2ptr $about->[1]}++) {
159 $buf .= " " . (_f $about->[1]) . ", which was seen before.\n"; 159 $buf .= " " . (_f $about->[1]) . ", which was seen before.\n";
160 } else { 160 } else {
… …
172 $buf .= "$indent not referenced within the search depth.\n"; 172 $buf .= "$indent not referenced within the search depth.\n";
173 } 173 }
174 }; 174 };
175 175
176 $buf .= (_f $ref) . " is\n"; 176 $buf .= (_f $ref) . " is\n";
177
177 $track->(\$ref, $depth || $ENV{PERL_DEVEL_FINDREF_DEPTH} || 10, ""); 178 $track->(\$ref, $depth || $ENV{PERL_DEVEL_FINDREF_DEPTH} || 10, "");
178 $buf 179 $buf
179} 180}
180 181
181=item @references = Devel::FindRef::find $ref 182=item @references = Devel::FindRef::find $ref
… …
191=cut 192=cut
192 193
193sub find($) { 194sub find($) {
194 my ($about, $excl) = &find_; 195 my ($about, $excl) = &find_;
195 my %excl = map +($_ => undef), @$excl; 196 my %excl = map +($_ => undef), @$excl;
196 grep !exists $excl{ref2ptr $_->[1]}, @$about 197 grep !($#$_ && exists $excl{ref2ptr $_->[1]}), @$about
197} 198}
198 199
199=item $ref = Devel::FindRef::ptr2ref $integer 200=item $ref = Devel::FindRef::ptr2ref $integer
200 201
201Sometimes you know (from debugging output) the address of a perl scalar 202Sometimes you know (from debugging output) the address of a perl scalar

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines