summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorJesse Luehrs <doy@tozt.net>2013-07-10 09:52:02 -0400
committerJesse Luehrs <doy@tozt.net>2013-07-10 09:52:02 -0400
commit664d6c2c56cfc5e59d58ab9c5819498a27de2a45 (patch)
tree82efb8e0b84aecd8d9fdb0e614aee6d916d387cf
parentb7411ddfdb3489d13d0dfe4d379cade0010b762e (diff)
downloadcarp-reply-664d6c2c56cfc5e59d58ab9c5819498a27de2a45.tar.gz
carp-reply-664d6c2c56cfc5e59d58ab9c5819498a27de2a45.zip
update to work with latest reply
-rw-r--r--lib/Reply/Plugin/CarpReply.pm27
1 files 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);
}
}