diff options
author | Jesse Luehrs <doy@tozt.net> | 2013-07-04 13:59:29 -0400 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2013-07-04 13:59:29 -0400 |
commit | 1b8ca4ff78dfb24de0a171877b8c742c79645125 (patch) | |
tree | 06b0944ba5544ed4e42ac4f24a3c646a2b85ca94 | |
parent | 14be36123b11670c59e5202494f91ac60038049b (diff) | |
download | carp-reply-1b8ca4ff78dfb24de0a171877b8c742c79645125.tar.gz carp-reply-1b8ca4ff78dfb24de0a171877b8c742c79645125.zip |
have to re-publish this every loop, or LexicalPersistence resets it
-rw-r--r-- | lib/Reply/Plugin/CarpReply.pm | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/lib/Reply/Plugin/CarpReply.pm b/lib/Reply/Plugin/CarpReply.pm index 3f9622f..5c9ad56 100644 --- a/lib/Reply/Plugin/CarpReply.pm +++ b/lib/Reply/Plugin/CarpReply.pm @@ -35,6 +35,17 @@ 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"; |