HTML::Perlinfo::Loaded - Post-execution HTML dump of loaded modules and environment variables


HTML-Perlinfo documentation Contained in the HTML-Perlinfo distribution.

Index


Code Index:

NAME

Top

HTML::Perlinfo::Loaded - Post-execution HTML dump of loaded modules and environment variables

SYNOPSIS

Top

    #!/usr/bin/perl
    use HTML::Perlinfo::Loaded;
    ...

DESCRIPTION

Top

This module installs an at-exit handler to generate an HTML dump of all the module files used by a Perl program. As an added bonus, environment variables are also included in this dump. When used under mod_perl, the module will show you preloaded modules in the HTML page too.

Since the "dump" is a complete HTML page, this module is a good debugging tool for Web applications. Just make sure you print the content-type header beforehand or you will get an internal server error (malformed header).

Note that the HTML::Perlinfo function 'perlinfo' has an option called INFO_LOADED that will produce the same result. In other words, there is more than one way to do it! Observe:

    use HTML::Perlinfo;

    perlinfo(INFO_LOADED);

The result will be the same if you say:

    #!/usr/bin/perl
    use HTML::Perlinfo::Loaded;
    ...

There is no difference, except using the perlinfo option gives you greater control. You could always control HTML::Perlinfo::Loaded with a pound sign (a comment on/off), but if you are using mod_perl it makes more sense to add HTML::Perlinfo to your startup file and then call perlinfo(INFO_LOADED) when you want to dump.

SEE ALSO

Top

Devel::Loaded, HTML::Perlinfo::Modules, HTML::Perlinfo, perlinfo

AUTHOR

Top

Mike Accardo <accardo@cpan.org>

COPYRIGHT

Top


HTML-Perlinfo documentation Contained in the HTML-Perlinfo distribution.

package HTML::Perlinfo::Loaded;
BEGIN { %Seen = %INC } 

use HTML::Perlinfo::Modules;

$VERSION = '1.02';

%INC = %Seen;
END { 
 
    delete $INC{'HTML/Perlinfo/Loaded.pm'};	
    my $m = HTML::Perlinfo::Modules->new(full_page=>0, title=>'perlinfo(INFO_LOADED)');
    $m->print_htmlhead; 
    $m->print_modules('files_in'=>[values %INC],'section'=>'Loaded Modules');
    print $m->info_variables,"</div></body></html>";
}

1;
__END__