From 25ffbec8776016a72568017ef44c6a96c5dbc275 Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Tue, 17 Dec 2013 11:54:40 -0500
Subject: allow suppressing the initial stacktrace when invoking manually

---
 lib/Carp/Reply.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'lib')

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;
 }
 
-- 
cgit v1.2.3-54-g00ecf