blob: bee40fb02a039585402b2eb72c2f5f7fa0d268fb (
plain) (
blame)
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
|
package Carp::Reply;
use strict;
use warnings;
# ABSTRACT: get a repl on exceptions in your program
use Reply;
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 lexical environment is set to the lexical environment of the current stack
frame (and is updated when you use any of the commands which move around the
stack frames).
Carp::Reply also 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>.
=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() };
}
=function 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=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;
|
