blob: 71a62d9a6c84225c236cb75753558bf190d69759 (
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
|
package Carp::Reply;
use strict;
use warnings;
# ABSTRACT: get a repl on exceptions in your program
use Reply;
use Reply::Config;
sub import {
my $package = shift;
$SIG{__DIE__} = sub { print $_[0]; repl() };
}
sub repl {
my $repl = Reply->new(
config => Reply::Config->new,
plugins => ['CarpReply']
);
$repl->step('#bt');
$repl->run;
}
1;
|