view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

  - original version
  - many kudos and gratitude to those who offered their
    suggestions and improvements prior to the first release:
      Ask Bjoern Hansen
      Graham Barr
      René Seindal
        
0.02  4.4.2000
  - fixed bug in ip match that required an ip address to check
    against
  - added Data::Dumper support for dumping pnotes - not as
    pretty as the stuff before, but it now supports complex
    data structures and is less bulky  
    Suggested by René Seindal
  - minor pod and documentation changes

0.03  4.6.2000
  - reworked internal functions - should look a bit better now
  - added DebugTypeList and supporting documentation
  - added object oriented control of items corresponding to
    DebugFile, DebugIPList, and DebugTypeList

DebugInfo.pm  view on Meta::CPAN

#
# usage: various - see the perldoc below
#
#---------------------------------------------------------------------

use 5.005;
use mod_perl 1.2401;
use Apache::Constants qw( OK DECLINED );
use Apache::File;
use Apache::Log;
use Data::Dumper;
use strict;

$Apache::DebugInfo::VERSION = '0.05';

# set debug level
#  0 - messages at info or debug log levels
#  1 - verbose output at info or debug log levels
$Apache::DebugInfo::DEBUG = 0;

sub handler {

DebugInfo.pm  view on Meta::CPAN

  my $pnotes = $r->pnotes;

  print $fh "\nDebug pnotes for [$ip] $uri during " .
    $r->current_callback . "\n";

  my %hash = %$pnotes;

  foreach my $field (sort keys %hash) {

    my $value = $hash{$field};
    my $d = Data::Dumper->new([$value]);

    $d->Pad("\t\t");
    $d->Indent(1);
    $d->Quotekeys(0);
    $d->Terse(1);
    print $fh "\t$field => " . $d->Dump;
  }

  $log->info("Exiting Apache::DebugInfo::pnotes") 
    if $Apache::DebugInfo::DEBUG;