Browse files

Make $<foo> and $0 dump nicer.

  • Loading branch information...
1 parent bd3e80d commit 66f7e15ee8ba62cc5f71078eaf0a0ac5d3e91fbd @jnthn committed Jun 5, 2013
Showing with 8 additions and 0 deletions.
  1. +8 −0 lib/Debugger/UI/CommandLine.pm
View
8 lib/Debugger/UI/CommandLine.pm
@@ -429,6 +429,14 @@ my class DebugState {
}
}
}
+ when /^ ('$' [ \d+ | '<' \w+ '>' ]) \s* $/ {
+ say ~eval_in_ctx($ctx, ~$0);
+ CATCH {
+ default {
+ say colored($_.message, 'red');
+ }
+ }
+ }
when /^ (< $ @ % > .+ | 'self' .*)/ {
say eval_in_ctx($ctx, ~$0).perl;
CATCH {

0 comments on commit 66f7e15

Please sign in to comment.