From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

STAS / Apache-Peek-1.01 / Peek.pm 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
—
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88

              
# WARNING: DO NOT EDIT THIS FILE, EDIT Peek.pm.mp1.perl5.8 instead
package Apache::Peek;
use strict;
use warnings;
use XSLoader ();
use base qw(Exporter Devel::Peek);
our $VERSION = 1.01;
our @EXPORT = qw(Dump DumpArray);
use mod_perl;
die "This module was built against mod_perl 1.0 ", 
    "and can't be used with $mod_perl::VERSION, "
    unless $mod_perl::VERSION < 1.98;
XSLoader::load 'Apache::Peek';
1;
__END__
=head1 NAME
Apache::Peek - A data debugging tool for the XS programmer (under mod_perl)
=head1 SYNOPSIS
        use Apache::Peek;
        Dump( $a );
        Dump( $a, 5 );
        DumpArray( 5, $a, $b, ... );
        # more functionality inherited from Devel::Peek
=head1 DESCRIPTION
C<Apache::Peek> is a sub-class of C<Devel::Peek>. The only difference
is that it overrides the stderr stream, to which C<Devel::Peek> sends
its output, and send the output to the client instead.
Note: The following table summarizes what parts of the
C<Devel::Peek>'s API are available, depending on the used Perl version
and configurations:
  5.005_0x                 all
  5.6.x                    only Dump()
  5.8.x (w/  -Duseperlio)  all
  5.8.x (w/o -Duseperlio)  none
Patches to complete the functionality under all configurations are
welcome.
C<Apache::Peek> works both with mod_perl 1.0 and 2.0.
See the C<Devel::Peek> manpage for a complete documentation.
=head1 AUTHOR
Hacking the mod_perl versions:
Doug MacEachern         dougm@pobox.com
Stas Bekman             stas@stason.org
Writing the original C<Devel::Peek>
Ilya Zakharevich        ilya@math.ohio-state.edu
=head1 Copyright
Copyright (c) 1995-98 Ilya Zakharevich. All rights reserved.
This program is free software; you can redistribute it and/or
modify it under the same terms as Perl itself.
Author of this software makes no claim whatsoever about suitability,
reliability, edability, editability or usability of this product, and
should not be kept liable for any damage resulting from the use of
it. If you can use it, you are in luck, if not, I should not be kept
responsible. Keep a handy copy of your backup tape at hand.
=head1 SEE ALSO
L<perlguts>, and L<perlguts>, again.
=cut