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/Nopaste.pm | 133 +++++++++++++++++++-------------------------
 1 file changed, 58 insertions(+), 75 deletions(-)

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

diff --git a/lib/Reply/Plugin/Nopaste.pm b/lib/Reply/Plugin/Nopaste.pm
index 7265dc9..8ecf0e1 100644
--- a/lib/Reply/Plugin/Nopaste.pm
+++ b/lib/Reply/Plugin/Nopaste.pm
@@ -1,9 +1,9 @@
-package Reply::Plugin::Nopaste;
+package main;
 use strict;
 use warnings;
 # ABSTRACT: command to nopaste a transcript of the current session
 
-use base 'Reply::Plugin';
+use mop;
 
 use App::Nopaste;
 
@@ -27,79 +27,62 @@ like [DataDump], etc).
 
 =cut
 
-sub new {
-    my $class = shift;
-    my %opts = @_;
-
-    my $self = $class->SUPER::new(@_);
-    $self->{history} = '';
-    $self->{service} = $opts{service};
-
-    return $self;
-}
-
-sub prompt {
-    my $self = shift;
-    my ($next, @args) = @_;
-    my $prompt = $next->(@args);
-    $self->{prompt} = $prompt;
-    return $prompt;
-}
-
-sub read_line {
-    my $self = shift;
-    my ($next, @args) = @_;
-    my $line = $next->(@args);
-    $self->{line} = "$line\n" if defined $line;
-    return $line;
-}
-
-sub print_error {
-    my $self = shift;
-    my ($next, $error) = @_;
-    $self->{result} = $error;
-    $next->($error);
-}
-
-sub print_result {
-    my $self = shift;
-    my ($next, @result) = @_;
-    $self->{result} = @result ? join('', @result) . "\n" : '';
-    $next->(@result);
-}
-
-sub loop {
-    my $self = shift;
-    my ($continue) = @_;
-
-    my $prompt = delete $self->{prompt};
-    my $line   = delete $self->{line};
-    my $result = delete $self->{result};
-
-    $self->{history} .= "$prompt$line$result"
-        if defined $prompt
-        && defined $line
-        && defined $result;
-
-    $continue;
-}
-
-sub command_nopaste {
-    my $self = shift;
-    my ($line) = @_;
-
-    $line = "Reply session" unless length $line;
-
-    print App::Nopaste->nopaste(
-        text => $self->{history},
-        desc => $line,
-        lang => 'perl',
-        (defined $self->{service}
-            ? (services => [ $self->{service} ])
-            : ()),
-    ) . "\n";
-
-    return '';
+class Reply::Plugin::Nopaste extends Reply::Plugin {
+    has $history = '';
+    has $service;
+
+    has $prompt;
+    has $line;
+    has $result;
+
+    method prompt ($next, @args) {
+        $prompt = $next->(@args);
+        return $prompt;
+    }
+
+    method read_line ($next, @args) {
+        $line = $next->(@args);
+        $line = "$line\n" if defined $line;
+        return $line;
+    }
+
+    method print_error ($next, $error) {
+        $result = $error;
+        $next->($error);
+    }
+
+    method print_result ($next, @result) {
+        $result = @result ? join('', @result) . "\n" : '';
+        $next->(@result);
+    }
+
+    method loop ($continue) {
+        $history .= "$prompt$line$result"
+            if defined $prompt
+            && defined $line
+            && defined $result;
+
+        undef $prompt;
+        undef $line;
+        undef $result;
+
+        $continue;
+    }
+
+    method command_nopaste ($cmd_line) {
+        $cmd_line = "Reply session" unless length $cmd_line;
+
+        print App::Nopaste->nopaste(
+            text => $history,
+            desc => $cmd_line,
+            lang => 'perl',
+            (defined $service
+                ? (services => [ $service ])
+                : ()),
+        ) . "\n";
+
+        return '';
+    }
 }
 
 =for Pod::Coverage
-- 
cgit v1.2.3-54-g00ecf