Doug MacEachern > B-LexInfo > B::LexInfo

Download:
B-LexInfo-0.02.tar.gz

Dependencies

Annotate this POD

Related Modules

Apache::Leak
Devel::Size
Devel::Peek
Data::Dumper
Tie::Watch
Devel::Leak
more...
By perlmonks.org

CPAN RT

Open  1
View/Report Bugs
Module Version: 0.02   Source  

NAME ^

B::LexInfo - Show information about subroutine lexical variables

SYNOPSIS ^

  use B::ShowLex ();
  my $lexi = B::ShowLex->new;

DESCRIPTION ^

Perl stores lexical variable names and values inside a padlist within the subroutine. Certain lexicals will maintain certain attributes after the the variable "goes out of scope". For example, when a scalar is assigned a string value, this value remains after the variable has gone out of scope, but is overridden the next time it is assigned to. Lexical Arrays and Hashes will retain their storage space for the maximum number of entries stored at any given point in time.

This module provides methods to record this information, which can be dumped out as-is or to compare two "snapshots". The information learned from these snapshots can be valuable in a number of ways.

METHODS ^

new

Create a new B::LexInfo object:

 my $lexi = B::LexInfo->new;
cvlexinfo

Create a padlist snapshot from a single subroutine:

  my $info = $lexi->cvlexinfo('Foo::bar');
stash_cvlexinfo

Create a list of padlist snapshots for each subroutine in the given package:

  my $info = $lexi->stash_cvlexinfo('Foo');
dumper

Return a reference to a stringified padlist snapshot:

  print ${ $lexi->dumper($info) }
diff

Compare two padlist snapshots and return the difference:

 my $before = $lexi->stash_cvlexinfo(__PACKAGE__);
 ... let some code run
 my $after = $lexi->stash_cvlexinfo(__PACKAGE__);

 my $diff = B::LexInfo->diff($before, $after);
 print $$diff;

NOTE: This function relies on the diff -u command. You might need to configure $B::LexInfo::TmpDir and/or $B::LexInfo::DiffCmd to values other than the defaults in LexInfo.pm.

cvrundiff

Take a padlist snapshot of a subroutine, run the subroutine with the given arguments, take another snapshot and return a diff of the snapshots.

 my $diff = $lexi->cvrundiff('Foo::bar', "arg1", $arg2);
 print $$diff;

Complete example:

 package Foo;
 use B::LexInfo ();

 sub bar {
     my($string) = @_;
 }

 my $lexi = B::LexInfo->new;
 my $diff = $lexi->cvrundiff('Foo::bar', "a string");
 print $$diff;

Produces:

 --- /tmp/B_LexInfo_1848.before  Mon Jun 28 19:48:41 1999
 +++ /tmp/B_LexInfo_1848.after   Mon Jun 28 19:48:41 1999
 @@ -2,8 +2,10 @@
    {
      'Foo::bar' => {
        '$string' => {
 -        'TYPE' => 'NULL',
 -        'NULL' => '0x80efd58'
 +        'TYPE' => 'PV',
 +        'LEN' => 9,
 +        'PV' => 'a string',
 +        'CUR' => 8
        },
        '__SPECIAL__1' => {
          'TYPE' => 'NULL',

SNAPSHOT INFO ^

Snapshots are built using Perl structures and stringified using Data::Dumper. Hash key order is sorted and preserved if you you the Tie::IxHash module installed. Entry names are that of the variable itself or __SPECIAL__$n for entries that are used by Perl internally. The key/value pairs for each entry depends on the variable type and state. Docs on that to come, in the meantime, study: http://gisle.aas.no/perl/illguts/

SEE ALSO ^

B(3), Apache::RegistryLexInfo(3), Devel::Peek(3)

AUTHOR ^

Doug MacEachern

syntax highlighting: