diff options
Diffstat (limited to 'lib/Reply.pm')
-rw-r--r-- | lib/Reply.pm | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/lib/Reply.pm b/lib/Reply.pm index 6f7adb2..4826b25 100644 --- a/lib/Reply.pm +++ b/lib/Reply.pm @@ -102,7 +102,7 @@ sub new { =method run Runs the repl. Will continue looping until the C<read_line> callback returns -undef. +undef or the C<loop> callback returns false. =cut @@ -113,6 +113,15 @@ sub run { print "\n"; } +=method run_one($line) + +Runs a single iteration of the repl. If C<$line> is given, it will be used as +the string to evaluate (and the C<prompt> and C<read_line> callbacks will not +be called). Returns true if the repl can continue, and false if it was +requested to quit. + +=cut + sub run_one { my $self = shift; my ($line) = @_; |