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
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
|
package Carp::Reply;
use strict;
use warnings;
# ABSTRACT: get a repl on exceptions in your program
use Reply 0.27;
use Reply::Config;
=head1 SYNOPSIS
perl -MCarp::Reply script.pl
or
use Carp::Reply ();
sub foo {
# ...
Carp::Reply::repl();
# ...
}
=head1 DESCRIPTION
Carp::Reply provides a repl to use within an already running program, which can
introspect the current state of the program, including the call stack and
current lexical variables. It works just like L<Reply>, with the addition of
some commands to move around in the call stack.
The package and lexical environment are set to the package and lexical
environment of the current stack frame (and are updated when you use any of the
commands which move around the stack frames). The lexical variables are aliased
to the variable in the stack frame, so if the repl is invoked manually (not
through a C<__DIE__> handler), you can actually modify the contents of lexical
variables to use when the repl closes and the app starts running again.
You can start a repl at any given point in your program by inserting a call to
C<Carp::Reply::repl> in your code. In addition, the default C<import> method
for C<Carp::Reply> installs a C<__DIE__> handler which automatically launches a
repl when an exception is thrown. You can suppress this behavior by passing an
empty import list, either via C<use Carp::Reply ();> or C<perl -mCarp::Reply>.
If the repl was invoked manually (via calling C<repl>), you can resume
execution of your code by exiting the repl, typically via C<Ctrl+D>. If it was
invoked via the C<__DIE__> handler, there is no way to resume execution (this
is a limitation of perl itself).
=head1 COMMANDS
=over 4
=item #backtrace
(Aliases: #trace, #bt)
Displays a backtrace from the location where the repl was invoked. This is run
automatically when the repl is first launched.
=item #top
(Aliases: #t)
Move to the top of the call stack (the outermost call level).
=item #bottom
(Aliases: #b)
Move to the bottom of the call stack (where the repl was invoked).
=item #up
(Aliases: #u)
Move up one level in the call stack.
=item #down
(Aliases: #d)
Move down one level in the call stack.
=item #list
(Aliases: #l)
Displays a section of the source code around the current stack frame. The
current line is marked with a C<*>.
=item #env
Displays the current lexical environment.
=back
=cut
sub import {
my $package = shift;
$SIG{__DIE__} = sub { print $_[0]; repl() };
}
=func repl
Invokes a repl at the current point of execution.
=cut
sub repl {
my $repl = Reply->new(
config => Reply::Config->new,
plugins => ['CarpReply']
);
$repl->step('#bt');
$repl->run;
}
=head1 BUGS
No known bugs.
Please report any bugs through RT: email
C<bug-carp-reply at rt.cpan.org>, or browse to
L<http://rt.cpan.org/NoAuth/ReportBug.html?Queue=Carp-Reply>.
=head1 SEE ALSO
L<Carp::REPL>
=head1 SUPPORT
You can find this documentation for this module with the perldoc command.
perldoc Carp::Reply
You can also look for information at:
=over 4
=item * MetaCPAN
L<https://metacpan.org/release/Carp-Reply>
=item * RT: CPAN's request tracker
L<http://rt.cpan.org/NoAuth/Bugs.html?Dist=Carp-Reply>
=item * Github
L<https://github.com/doy/carp-reply>
=item * CPAN Ratings
L<http://cpanratings.perl.org/d/Carp-Reply>
=back
=cut
1;
|
