From b3a5637d9fb3e15ff927744a4a181ac0d6b51edd Mon Sep 17 00:00:00 2001
From: Pragmatic Software <pragma78@gmail.com>
Date: Tue, 21 Apr 2020 21:31:53 -0700
Subject: [PATCH] Plugins: `pluglist` now shows count

---
 PBot/Plugins.pm | 14 ++++----------
 1 file changed, 4 insertions(+), 10 deletions(-)

diff --git a/PBot/Plugins.pm b/PBot/Plugins.pm
index 2ef8391d..e99a39db 100644
--- a/PBot/Plugins.pm
+++ b/PBot/Plugins.pm
@@ -155,18 +155,12 @@ sub unload_cmd {
 
 sub list_cmd {
     my ($self, $from, $nick, $user, $host, $arguments) = @_;
-    my $result = "Loaded plugins: ";
-    my $count  = 0;
-    my $comma  = '';
 
-    foreach my $plugin (sort keys %{$self->{plugins}}) {
-        $result .= $comma . $plugin;
-        $count++;
-        $comma = ', ';
-    }
+    my @plugins = sort keys %{$self->{plugins}};
 
-    $result .= 'none' if $count == 0;
-    return $result;
+    return "No plugins loaded." if not @plugins;
+
+    return scalar @plugins . ' plugin' . (@plugins == 1 ? '' : 's') . ' loaded: ' . join (', ', @plugins);
 }
 
 1;