diff options
| author | Jesse Luehrs <doy@tozt.net> | 2013-05-29 05:07:33 -0500 |
|---|---|---|
| committer | Jesse Luehrs <doy@tozt.net> | 2013-05-29 05:07:33 -0500 |
| commit | 08ec0d4c0a2ef14d0e7ca78dd5a0b54dcade1132 (patch) | |
| tree | 673f58c06c5667238d5fc6cd6b72d0b197e467af /lib/App/REPL/Plugin/Defaults.pm | |
| parent | ce62e06a2ad801aec1bf9f393475b01d25670892 (diff) | |
| download | reply-08ec0d4c0a2ef14d0e7ca78dd5a0b54dcade1132.tar.gz reply-08ec0d4c0a2ef14d0e7ca78dd5a0b54dcade1132.zip | |
clean up line reading a bit
Diffstat (limited to 'lib/App/REPL/Plugin/Defaults.pm')
| -rw-r--r-- | lib/App/REPL/Plugin/Defaults.pm | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/lib/App/REPL/Plugin/Defaults.pm b/lib/App/REPL/Plugin/Defaults.pm index 057fcce..23368e8 100644 --- a/lib/App/REPL/Plugin/Defaults.pm +++ b/lib/App/REPL/Plugin/Defaults.pm @@ -15,15 +15,13 @@ use base 'App::REPL::Plugin'; use Eval::Closure; -sub display_prompt { - my $self = shift; - - print "> "; -} +sub prompt { "> " } sub read_line { my $self = shift; + my ($next, $prompt) = @_; + print $prompt; return scalar <>; } |