package main;
use strict;
use warnings;
# ABSTRACT: provides a more informative prompt

use mop;

=head1 SYNOPSIS

  ; .replyrc
  [FancyPrompt]

=head1 DESCRIPTION

This plugin enhances the default Reply prompt. Currently, the only difference
is that it includes a counter of the number of lines evaluated so far in the
current session.

=cut

class Reply::Plugin::FancyPrompt extends Reply::Plugin {
    has $counter  = 0;
    has $prompted = 0;

    method prompt ($next) {
        $prompted = 1;
        return $counter . $next->();
    }

    method loop ($continue) {
        $counter++ if $prompted;
        $prompted = 0;
        $continue;
    }
}

1;