[Catalyst-commits] r8589 - in branches/Config-Any/unsupported_error: . lib/Config

[bricas at dev.catalyst.perl.org]

Author: bricas
Date: 2008-11-12 14:36:43 +0000 (Wed, 12 Nov 2008)
New Revision: 8589

Modified:
   branches/Config-Any/unsupported_error/Changes
   branches/Config-Any/unsupported_error/lib/Config/Any.pm
Log:
filter out loaders that don't inherit from Config::Any::Base (RT #40830)

Modified: branches/Config-Any/unsupported_error/Changes
===================================================================
--- branches/Config-Any/unsupported_error/Changes	2008-11-11 14:10:47 UTC (rev 8588)
+++ branches/Config-Any/unsupported_error/Changes	2008-11-12 14:36:43 UTC (rev 8589)
@@ -9,6 +9,7 @@
     - officially support multiple loaders per extension
     - add a Config::Any::Base for all loaders to inherit from, plus add
       a new dependency mechanism: requires_any_of() and requires_all_of().
+    - filter out loaders that don't inherit from Config::Any::Base (RT #40830)
 
 0.14 Wed 06 Aug 2008
     - skip xml failure tests if XML::LibXML < 1.59 is installed, it seems

Modified: branches/Config-Any/unsupported_error/lib/Config/Any.pm
===================================================================
--- branches/Config-Any/unsupported_error/lib/Config/Any.pm	2008-11-11 14:10:47 UTC (rev 8588)
+++ branches/Config-Any/unsupported_error/lib/Config/Any.pm	2008-11-12 14:36:43 UTC (rev 8589)
@@ -263,7 +263,8 @@
 
 sub plugins {
     my $class = shift;
-    return $class->finder->plugins;
+    # filter out things that don't look like our plugins
+    return grep { $_->isa( 'Config::Any::Base' ) } $class->finder->plugins;
 }
 
 =head2 extensions( )