diff options
Diffstat (limited to 'lib/Reply/Plugin/CarpReply.pm')
-rw-r--r-- | lib/Reply/Plugin/CarpReply.pm | 27 |
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); } } |