diff options
author | Jesse Luehrs <doy@tozt.net> | 2013-05-30 07:02:48 -0500 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2013-05-30 07:02:48 -0500 |
commit | a3dcdb0d05d46a48e9305a34c4d4e0b954d50d9b (patch) | |
tree | f18ccd90f85ba40695769c36b4ee720a957fc05a /lib/Reply/Plugin/FancyPrompt.pm | |
parent | cdb35b5ad4803d8c02788bd7bbec2a678d124b75 (diff) | |
download | reply-a3dcdb0d05d46a48e9305a34c4d4e0b954d50d9b.tar.gz reply-a3dcdb0d05d46a48e9305a34c4d4e0b954d50d9b.zip |
add a hook for the end of a cycle
Diffstat (limited to 'lib/Reply/Plugin/FancyPrompt.pm')
-rw-r--r-- | lib/Reply/Plugin/FancyPrompt.pm | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/lib/Reply/Plugin/FancyPrompt.pm b/lib/Reply/Plugin/FancyPrompt.pm index aec5b82..d998763 100644 --- a/lib/Reply/Plugin/FancyPrompt.pm +++ b/lib/Reply/Plugin/FancyPrompt.pm @@ -14,7 +14,12 @@ sub new { sub prompt { my $self = shift; my ($next) = @_; - return $self->{counter}++ . $next->(); + return $self->{counter} . $next->(); +} + +sub loop { + my $self = shift; + $self->{counter}++; } 1; |