From 664d6c2c56cfc5e59d58ab9c5819498a27de2a45 Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Wed, 10 Jul 2013 09:52:02 -0400
Subject: update to work with latest reply

---
 lib/Reply/Plugin/CarpReply.pm | 27 ++++++++++-----------------
 1 file changed, 10 insertions(+), 17 deletions(-)

diff --git a/lib/Reply/Plugin/CarpReply.pm b/lib/Reply/Plugin/CarpReply.pm
index 735ec66..26b31de 100644
--- a/lib/Reply/Plugin/CarpReply.pm
+++ b/lib/Reply/Plugin/CarpReply.pm
@@ -35,17 +35,6 @@ sub new {
     return $self;
 }
 
-sub compile {
-    my $self = shift;
-    my ($next, $line, %args) = @_;
-
-    $self->_frame_index($self->{frame_index});
-
-    my ($code) = $next->($line, %args);
-
-    return $code;
-}
-
 sub command_backtrace {
     my $self = shift;
     print "Backtrace:\n";
@@ -123,6 +112,16 @@ sub command_u     { shift->command_up(@_)        }
 sub command_d     { shift->command_down(@_)      }
 sub command_l     { shift->command_list(@_)      }
 
+sub lexical_environment {
+    my $self = shift;
+    return $self->_frame->lexicals;
+}
+
+sub package {
+    my $self = shift;
+    return $self->_frame->package;
+}
+
 sub _frame_index {
     my $self = shift;
     my ($index) = @_;
@@ -140,12 +139,6 @@ sub _frame_index {
                 $self->_frame->filename,
                 $self->_frame->line;
         }
-
-        $self->publish(
-            'lexical_environment',
-            $self->_frame->lexicals
-        );
-        $self->publish('package', $self->_frame->package);
     }
 }
 
-- 
cgit v1.2.3