diff options
-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"; |