diff options
Diffstat (limited to 'lib')
-rw-r--r-- | lib/Reply/Plugin/Defaults.pm | 24 |
1 files changed, 24 insertions, 0 deletions
diff --git a/lib/Reply/Plugin/Defaults.pm b/lib/Reply/Plugin/Defaults.pm index 28d0557..2114e3f 100644 --- a/lib/Reply/Plugin/Defaults.pm +++ b/lib/Reply/Plugin/Defaults.pm @@ -15,6 +15,15 @@ use base 'Reply::Plugin'; use Eval::Closure; +sub new { + my $class = shift; + + my $self = $class->SUPER::new(@_); + $self->{quit} = 0; + + return $self; +} + sub prompt { "> " } sub read_line { @@ -79,4 +88,19 @@ sub print_result { if @result; } +sub command_q { + my $self = shift; + $self->{quit} = 1; + return ''; +} + +sub loop { + my $self = shift; + my ($continue) = @_; + + $continue = 0 if $self->{quit}; + + return $continue; +} + 1; |