[Catalyst-commits] r6449 - in trunk/Catalyst-Engine-Wx: . lib/Catalyst/View

[eriam at dev.catalyst.perl.org]

Author: eriam
Date: 2007-05-31 12:08:09 +0100 (Thu, 31 May 2007)
New Revision: 6449

Modified:
   trunk/Catalyst-Engine-Wx/Makefile.PL
   trunk/Catalyst-Engine-Wx/lib/Catalyst/View/Wx.pm
Log:
Reloads the Wx classes views while the debug flag is on -- maybe useless.

Modified: trunk/Catalyst-Engine-Wx/Makefile.PL
===================================================================
--- trunk/Catalyst-Engine-Wx/Makefile.PL	2007-05-30 20:36:58 UTC (rev 6448)
+++ trunk/Catalyst-Engine-Wx/Makefile.PL	2007-05-31 11:08:09 UTC (rev 6449)
@@ -13,5 +13,6 @@
 requires 'Alien::wxWidgets'      =>   0;
 requires 'Wx'                    =>   0;
 requires 'Class::Inspector'      =>   0;
+requires 'Module::Reload'        =>   0;
 
 WriteAll();

Modified: trunk/Catalyst-Engine-Wx/lib/Catalyst/View/Wx.pm
===================================================================
--- trunk/Catalyst-Engine-Wx/lib/Catalyst/View/Wx.pm	2007-05-30 20:36:58 UTC (rev 6448)
+++ trunk/Catalyst-Engine-Wx/lib/Catalyst/View/Wx.pm	2007-05-31 11:08:09 UTC (rev 6449)
@@ -8,6 +8,7 @@
 
 use NEXT;
 use Class::Inspector;
+use Module::Reload; 
 use Data::Dumper;
 
 our $VERSION = '0.1';
@@ -47,6 +48,10 @@
          $module = $self->config->{NAMESPACE}.'::'.$module;
       }
       
+      if ($ENV{CATALYST_DEBUG}) {
+         Module::Reload->check;
+      }
+      
       unless (Class::Inspector->loaded($module)) {
          require Class::Inspector->filename($module);
       }