diff options
author | Jesse Luehrs <doy@tozt.net> | 2013-05-30 04:41:11 -0500 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2013-05-30 04:41:11 -0500 |
commit | d8a90a03e9c5e8e2732374a10e0e79289ffb793c (patch) | |
tree | 98b6385d26dad2a14687c2c51d402c5b6ebdc837 /lib/App/REPL/Plugin/FancyPrompt.pm | |
parent | 69e4ff7c28debe5cae5bd505d5df12bd12bdd11a (diff) | |
download | reply-d8a90a03e9c5e8e2732374a10e0e79289ffb793c.tar.gz reply-d8a90a03e9c5e8e2732374a10e0e79289ffb793c.zip |
App::REPL -> Reply
Diffstat (limited to 'lib/App/REPL/Plugin/FancyPrompt.pm')
-rw-r--r-- | lib/App/REPL/Plugin/FancyPrompt.pm | 20 |
1 files changed, 0 insertions, 20 deletions
diff --git a/lib/App/REPL/Plugin/FancyPrompt.pm b/lib/App/REPL/Plugin/FancyPrompt.pm deleted file mode 100644 index 90e8627..0000000 --- a/lib/App/REPL/Plugin/FancyPrompt.pm +++ /dev/null @@ -1,20 +0,0 @@ -package App::REPL::Plugin::FancyPrompt; -use strict; -use warnings; - -use base 'App::REPL::Plugin'; - -sub new { - my $class = shift; - my $self = $class->SUPER::new(@_); - $self->{counter} = 0; - return $self; -} - -sub prompt { - my $self = shift; - my ($next) = @_; - return $self->{counter}++ . $next->(); -} - -1; |