[Bast-commits] r9708 - Class-Accessor-Grouped/trunk/lib/Class/Accessor

[ribasushi at dev.catalyst.perl.org]

Author: ribasushi
Date: 2010-09-09 11:38:31 +0100 (Thu, 09 Sep 2010)
New Revision: 9708

Modified:
   Class-Accessor-Grouped/trunk/lib/Class/Accessor/Grouped.pm
Log:
Lazy-load Class::Inspector

Modified: Class-Accessor-Grouped/trunk/lib/Class/Accessor/Grouped.pm
===================================================================
--- Class-Accessor-Grouped/trunk/lib/Class/Accessor/Grouped.pm	2010-09-09 03:16:54 UTC (rev 9707)
+++ Class-Accessor-Grouped/trunk/lib/Class/Accessor/Grouped.pm	2010-09-09 10:38:31 UTC (rev 9708)
@@ -2,7 +2,6 @@
 use strict;
 use warnings;
 use Carp ();
-use Class::Inspector ();
 use Scalar::Util ();
 use MRO::Compat;
 use Sub::Name ();
@@ -456,6 +455,7 @@
 sub set_component_class {
     if ($_[2]) {
         local $^W = 0;
+        require Class::Inspector;
         if (Class::Inspector->installed($_[2]) && !Class::Inspector->loaded($_[2])) {
             eval "use $_[2]";