summaryrefslogtreecommitdiffstats
path: root/lib/Reply.pm
diff options
context:
space:
mode:
Diffstat (limited to 'lib/Reply.pm')
-rw-r--r--lib/Reply.pm11
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) = @_;