diff options
author | Jesse Luehrs <doy@tozt.net> | 2013-12-17 11:54:40 -0500 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2013-12-17 11:54:40 -0500 |
commit | 25ffbec8776016a72568017ef44c6a96c5dbc275 (patch) | |
tree | b8d39769c0dcbbe9a7005b24c27714407ba03e7d /lib | |
parent | 9122d02d0b6544091e5aa4d3ee116de669ecae4a (diff) | |
download | carp-reply-25ffbec8776016a72568017ef44c6a96c5dbc275.tar.gz carp-reply-25ffbec8776016a72568017ef44c6a96c5dbc275.zip |
allow suppressing the initial stacktrace when invoking manually
Diffstat (limited to 'lib')
-rw-r--r-- | lib/Carp/Reply.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lib/Carp/Reply.pm b/lib/Carp/Reply.pm index a086838..d8db2a5 100644 --- a/lib/Carp/Reply.pm +++ b/lib/Carp/Reply.pm @@ -108,11 +108,12 @@ Invokes a repl at the current point of execution. =cut sub repl { + my ($quiet) = @_; my $repl = Reply->new( config => Reply::Config->new, plugins => ['CarpReply'] ); - $repl->step('#bt'); + $repl->step('#bt') unless $quiet; $repl->run; } |