Display version numbers of loaded plugins (Curtis Poe)

diff --git a/Changes b/Changes
index 23d1a4e..a768594 100644 (file)
--- a/Changes
+++ b/Changes
@@ -1,6 +1,7 @@
 This file documents the revision history for Perl extension Catalyst.
 
 5.62
+        - Display version numbers of loaded plugins. (Curtis Poe)
         - Added class and method for catched exceptions messages
         - Updated PAR support to use "make catalyst_par",
           packages are no longer written by Makefile.PL

diff --git a/lib/Catalyst.pm b/lib/Catalyst.pm
index 4b9ef99..5f6d50b 100644 (file)
--- a/lib/Catalyst.pm
+++ b/lib/Catalyst.pm
@@ -592,7 +592,9 @@ EOF
 
         {
             no strict 'refs';
-            @plugins = grep { /^Catalyst::Plugin/ } @{"$class\::ISA"};
+            @plugins = 
+                map  { $_ . ' ' . ( $_->VERSION || '' ) }
+                grep { /^Catalyst::Plugin/ } @{"$class\::ISA"};
         }
 
         if (@plugins) {