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.9 by root, Sat Dec 29 21:04:46 2007 UTC vs.
Revision 1.12 by root, Fri Jul 11 21:09:30 2008 UTC

… …
4 4
5use XSLoader; 5use XSLoader;
6use Scalar::Util; 6use Scalar::Util;
7 7
8BEGIN { 8BEGIN {
9 our $VERSION = '1.1'; 9 our $VERSION = '1.2';
10 XSLoader::load __PACKAGE__, $VERSION; 10 XSLoader::load __PACKAGE__, $VERSION;
11} 11}
12 12
13=head1 NAME 13=head1 NAME
14 14
… …
45 testsub; 45 testsub;
46 46
47The output is as follows (or similar to this, in case I forget to update 47The output is as follows (or similar to this, in case I forget to update
48the manpage after some changes): 48the manpage after some changes):
49 49
50 SCALAR(0x676fa0) is 50 SCALAR(0x7bd2d0) is
51 in the global $Test::var.
51 referenced by REF(0x676fb0), which is 52 referenced by REF(0x7bd240), which is
53 in the member 'ukukey2' of HASH(0x7bd228), which is
54 referenced by REF(0x81dae8), which is
55 in the lexical '$local' in CODE(0x81da88), which is
56 in the global &Test::testsub.
57 referenced by REF(0x81da40), which is
58 in the global $Test::hash2.
59 referenced by REF(0x79f3f8), which is
52 in the lexical '$x' in CODE(0x676370), which is 60 in the lexical '$x' in CODE(0x79f518), which is
61 the containing scope for CODE(0x81da88), which is
62 in the global &Test::testsub.
63 referenced by REF(0x79f2f0), which is
53 not found anywhere I looked :( 64 not found anywhere I looked :(
54 referenced by REF(0x676360), which is 65 referenced by REF(0x79f140), which is
55 in the member 'ukukey' of HASH(0x756660), which is 66 in the member 'ukukey' of HASH(0x81d698), which is
56 in the global %Test::hash. 67 in the global %Test::hash.
57 in the global $Test::var.
58 referenced by REF(0x6760e0), which is
59 in the member 'ukukey2' of HASH(0x676f30), which is
60 referenced by REF(0x77bcf0), which is
61 in the lexical '$local' in CODE(0x77bcb0), which is
62 in the global &Test::testsub.
63 referenced by REF(0x77bc80), which is
64 in the global $Test::hash2.
65
66 68
67It is a bit convoluted to read, but basically it says that the value 69It is a bit convoluted to read, but basically it says that the value
68stored in C<$var> can be found: 70stored in C<$var> can be found:
69 71
70=over 4 72=over 4
… …
105sub track { 107sub track {
106 my ($ref, $depth) = @_; 108 my ($ref, $depth) = @_;
107 @_ = (); 109 @_ = ();
108 110
109 my $buf = ""; 111 my $buf = "";
112 my %seen;
110 113
111 Scalar::Util::weaken $ref; 114 Scalar::Util::weaken $ref;
112 115
113 my $track; $track = sub { 116 my $track; $track = sub {
114 my ($refref, $depth, $indent) = @_; 117 my ($refref, $depth, $indent) = @_;
115 118
116 if ($depth) { 119 if ($depth) {
117 my (@about) = find $$refref; 120 my (@about) = find $$refref;
118 if (@about) { 121 if (@about) {
119 for my $about (@about) { 122 for my $about (@about) {
120 $buf .= (" ") x $indent; 123 $buf .= "$indent" . (@about > 1 ? "+- " : " ") . $about->[0];
121 $buf .= $about->[0];
122 if (@$about > 1) { 124 if (@$about > 1) {
125 if ($seen{$about->[1]+0}++) {
126 $buf .= " $about->[1], which was seen before.\n";
127 } else {
123 $buf .= " $about->[1], which is\n"; 128 $buf .= " $about->[1], which is\n";
124 $track->(\$about->[1], $depth - 1, $indent + 1); 129 $track->(\$about->[1], $depth - 1, $about == $about[-1] ? "$indent " : "$indent| ");
130 }
125 } else { 131 } else {
126 $buf .= ".\n"; 132 $buf .= ".\n";
127 } 133 }
128 } 134 }
129 } else { 135 } else {
130 $buf .= (" ") x $indent;
131 $buf .= "not found anywhere I looked :(\n"; 136 $buf .= "$indent not found anywhere I looked :(\n";
132 } 137 }
133 } else { 138 } else {
134 $buf .= (" ") x $indent;
135 $buf .= "not referenced within the search depth.\n"; 139 $buf .= "$indent not referenced within the search depth.\n";
136 } 140 }
137 }; 141 };
138 142
139 $buf .= "$ref is\n"; 143 $buf .= "$ref is\n";
140 $track->(\$ref, $depth || 10, 1); 144 $track->(\$ref, $depth || $ENV{PERL_DEVEL_FINDREF_DEPTH} || 10, "");
141 $buf 145 $buf
142} 146}
143 147
144=item @references = Devel::FindRef::find $ref 148=item @references = Devel::FindRef::find $ref
145 149
… …
169 # we know that HASH(0x176ff70) exists, so turn it into a hashref: 173 # we know that HASH(0x176ff70) exists, so turn it into a hashref:
170 my $ref_to_hash = Devel::FindRef::ptr2ref 0x176ff70; 174 my $ref_to_hash = Devel::FindRef::ptr2ref 0x176ff70;
171 175
172=back 176=back
173 177
178=head1 ENVIRONMENT VARIABLES
179
180You can set the environment variable C<PERL_DEVEL_FINDREF_DEPTH> to an
181integer to override the default depth in C<track>. If a call explicitly
182specified a depth it is not overridden.
183
174=head1 AUTHOR 184=head1 AUTHOR
175 185
176Marc Lehmann <pcg@goof.com>. 186Marc Lehmann <pcg@goof.com>.
177 187
178=head1 BUGS 188=head1 BUGS

Diff Legend

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