--- Devel-FindRef/FindRef.pm 2013/04/13 06:29:39 1.28 +++ Devel-FindRef/FindRef.pm 2013/04/13 06:53:33 1.29 @@ -32,7 +32,7 @@ For example, for this fragment: - package Test; + package Test; use Devel::FindRef; use Scalar::Util; @@ -42,11 +42,10 @@ our %global_hash = (ukukey => \$var); our $global_hashref = { ukukey2 => \$var }; - sub testsub { + sub testsub { my $testsub_local = $global_hashref; print Devel::FindRef::track \$var; - } - + } my $closure = sub { my $closure_var = \$_[0]; @@ -111,7 +110,6 @@ And all these account for six reference counts. - =head1 EXPORTS None. @@ -126,7 +124,8 @@ return a descriptive string. C<$ref> can point at any perl value, be it anonymous sub, hash, array, scalar etc. -This is the function you most often use. +This is the function you most likely want to use when tracking down +references. =cut @@ -222,7 +221,7 @@ You can set the environment variable C to an integer to override the default depth in C. If a call explicitly -specified a depth it is not overridden. +specifies a depth, it is not overridden. =head1 AUTHOR @@ -230,7 +229,7 @@ =head1 COPYRIGHT AND LICENSE -Copyright (C) 2007, 2008 by Marc Lehmann. +Copyright (C) 2007, 2008, 2009, 2013 by Marc Lehmann. This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.8.8 or,