From 3e19fb26f62ce9fa02e417c015f6668989d1eaad Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Wed, 7 Aug 2013 22:28:04 -0400
Subject: convert all of the plugins

---
 lib/Reply/Plugin/FancyPrompt.pm | 35 ++++++++++++++---------------------
 1 file changed, 14 insertions(+), 21 deletions(-)

(limited to 'lib/Reply/Plugin/FancyPrompt.pm')

diff --git a/lib/Reply/Plugin/FancyPrompt.pm b/lib/Reply/Plugin/FancyPrompt.pm
index 7a0d415..c074bff 100644
--- a/lib/Reply/Plugin/FancyPrompt.pm
+++ b/lib/Reply/Plugin/FancyPrompt.pm
@@ -1,9 +1,9 @@
-package Reply::Plugin::FancyPrompt;
+package main;
 use strict;
 use warnings;
 # ABSTRACT: provides a more informative prompt
 
-use base 'Reply::Plugin';
+use mop;
 
 =head1 SYNOPSIS
 
@@ -18,27 +18,20 @@ current session.
 
 =cut
 
-sub new {
-    my $class = shift;
-    my $self = $class->SUPER::new(@_);
-    $self->{counter} = 0;
-    $self->{prompted} = 0;
-    return $self;
-}
+class Reply::Plugin::FancyPrompt extends Reply::Plugin {
+    has $counter  = 0;
+    has $prompted = 0;
 
-sub prompt {
-    my $self = shift;
-    my ($next) = @_;
-    $self->{prompted} = 1;
-    return $self->{counter} . $next->();
-}
+    method prompt ($next) {
+        $prompted = 1;
+        return $counter . $next->();
+    }
 
-sub loop {
-    my $self = shift;
-    my ($continue) = @_;
-    $self->{counter}++ if $self->{prompted};
-    $self->{prompted} = 0;
-    $continue;
+    method loop ($continue) {
+        $counter++ if $prompted;
+        $prompted = 0;
+        $continue;
+    }
 }
 
 1;
-- 
cgit v1.2.3-54-g00ecf