[Catalyst-commits] r9755 - Catalyst-Plugin-Compress/trunk/lib/Catalyst/Plugin

[xinming at dev.catalyst.perl.org]

Author: xinming
Date: 2009-04-20 11:32:02 +0100 (Mon, 20 Apr 2009)
New Revision: 9755

Modified:
   Catalyst-Plugin-Compress/trunk/lib/Catalyst/Plugin/Compress.pm
Log:
Add debug info for Catalyst::Plugin::Compress

Modified: Catalyst-Plugin-Compress/trunk/lib/Catalyst/Plugin/Compress.pm
===================================================================
--- Catalyst-Plugin-Compress/trunk/lib/Catalyst/Plugin/Compress.pm	2009-04-20 10:06:35 UTC (rev 9754)
+++ Catalyst-Plugin-Compress/trunk/lib/Catalyst/Plugin/Compress.pm	2009-04-20 10:32:02 UTC (rev 9755)
@@ -60,6 +60,9 @@
 
         *_do_compress = \&{"_${_method}_compress"};
     }
+    $_method
+        ? $c->log->debug(qq{Catalyst::Plugin::Compress sets compression_format to '$_method'})
+        : $c->log->debug(qq{Catalyst::Plugin::Compress has no compression_format config - disabled.});
     $c->maybe::next::method(@_);
 }