Add ｢.selfrun｣ method

It was annoying to have copy-pasted IRC::Client initialization, so now
there is a ｢.selfrun｣ method that does that for you.

Author: AlexDaniel

Benchable.p6

@@ -181,18 +181,6 @@ Z:      loop (my int $x = 0; $x < +@commits - 1; $x++) {
     return ($msg-response, %graph);
 }
 
-my $plugin = Benchable.new;
-my $nick = ‘benchable6’;
-
-.run with IRC::Client.new(
-    :$nick
-    :userreal($nick.tc)
-    :username($nick.tc)
-    :host<irc.freenode.net>
-    :channels(%*ENV<DEBUGGABLE> ?? <#whateverable> !! <#perl6 #perl6-dev>)
-    :debug(?%*ENV<DEBUGGABLE>)
-    :plugins($plugin)
-    :filters( -> |c { $plugin.filter(|c) } )
-);
+Benchable.new.selfrun(‘benchable6’);
 
 # vim: expandtab shiftwidth=4 ft=perl6

Bisectable.p6

@@ -146,18 +146,6 @@ method process($message, $code is copy, $good, $bad) {
     return $result;
 }
 
-my $plugin = Bisectable.new;
-my $nick = ‘bisectable6’;
-
-.run with IRC::Client.new(
-    :$nick
-    :userreal($nick.tc)
-    :username($nick.tc)
-    :host<irc.freenode.net>
-    :channels(%*ENV<DEBUGGABLE> ?? <#whateverable> !! <#perl6 #perl6-dev>)
-    :debug(?%*ENV<DEBUGGABLE>)
-    :plugins($plugin)
-    :filters( -> |c { $plugin.filter(|c) } )
-);
+Bisectable.new.selfrun(‘bisectable6’);
 
 # vim: expandtab shiftwidth=4 ft=perl6

Committable.p6

@@ -104,18 +104,6 @@ method process($message, $config, $code is copy) {
     return $msg-response;
 }
 
-my $plugin = Committable.new;
-my $nick = ‘committable6’;
-
-.run with IRC::Client.new(
-    :$nick
-    :userreal($nick.tc)
-    :username($nick.tc)
-    :host<irc.freenode.net>
-    :channels(%*ENV<DEBUGGABLE> ?? <#whateverable> !! <#perl6 #perl6-dev>)
-    :debug(?%*ENV<DEBUGGABLE>)
-    :plugins($plugin)
-    :filters( -> |c { $plugin.filter(|c) } )
-);
+Committable.new.selfrun(‘committable6’);
 
 # vim: expandtab shiftwidth=4 ft=perl6

Whateverable.pm6

@@ -149,4 +149,17 @@ method upload(%files is copy, :$description = ‘’, Bool :$public = True) {
     return $gist.paste(%files, desc => $description, public => $public);
 }
 
+method selfrun($nick) {
+    .run with IRC::Client.new(
+        :$nick
+        :userreal($nick.tc)
+        :username($nick.tc)
+        :host<irc.freenode.net>
+        :channels(%*ENV<DEBUGGABLE> ?? <#whateverable> !! <#perl6 #perl6-dev>)
+        :debug(?%*ENV<DEBUGGABLE>)
+        :plugins(self)
+        :filters( -> |c { self.filter(|c) } )
+    )
+}
+
 # vim: expandtab shiftwidth=4 ft=perl6