Fixed table debug messages to be more portable

diff --git a/lib/Catalyst.pm b/lib/Catalyst.pm
index 61439c2..768ad23 100644 (file)
--- a/lib/Catalyst.pm
+++ b/lib/Catalyst.pm
@@ -198,7 +198,7 @@ sub import {
             $t->setCols('Class');
             $t->setColWidth( 'Class', 75, 1 );
             $t->addRow($_) for @plugins;
-            $caller->log->debug( 'Loaded plugins', $t->draw );
+            $caller->log->debug( "Loaded plugins:\n" . $t->draw );
         }
 
         my $dispatcher = $caller->dispatcher;

diff --git a/lib/Catalyst/Dispatcher.pm b/lib/Catalyst/Dispatcher.pm
index ffb20e9..69c8400 100644 (file)
--- a/lib/Catalyst/Dispatcher.pm
+++ b/lib/Catalyst/Dispatcher.pm
@@ -445,7 +445,7 @@ sub setup_actions {
     };
 
     $walker->( $walker, $self->tree, '' );
-    $self->log->debug( 'Loaded private actions', $privates->draw )
+    $self->log->debug( "Loaded private actions:\n" . $privates->draw )
       if ( @{ $privates->{tbl_rows} } );
 
     my $publics = Text::ASCIITable->new;
@@ -460,7 +460,7 @@ sub setup_actions {
         $publics->addRow( "/$plain", $reverse );
     }
 
-    $self->log->debug( 'Loaded public actions', $publics->draw )
+    $self->log->debug( "Loaded public actions:\n" . $publics->draw )
       if ( @{ $publics->{tbl_rows} } );
 
     my $regexes = Text::ASCIITable->new;
@@ -475,7 +475,7 @@ sub setup_actions {
         $regexes->addRow( $regex, $reverse );
     }
 
-    $self->log->debug( 'Loaded regex actions', $regexes->draw )
+    $self->log->debug( "Loaded regex actions:\n" . $regexes->draw )
       if ( @{ $regexes->{tbl_rows} } );
 }
 

diff --git a/lib/Catalyst/Engine.pm b/lib/Catalyst/Engine.pm
index 691bd67..4e63058 100644 (file)
--- a/lib/Catalyst/Engine.pm
+++ b/lib/Catalyst/Engine.pm
@@ -521,7 +521,7 @@ sub prepare {
             my $value = defined($param) ? $param : '';
             $t->addRow( $key, $value );
         }
-        $c->log->debug( 'Parameters are', $t->draw );
+        $c->log->debug( "Parameters are:\n" . $t->draw );
     }
 
     return $c;
@@ -694,7 +694,7 @@ sub setup {
         $t->setCols('Class');
         $t->setColWidth( 'Class', 75, 1 );
         $t->addRow($_) for sort keys %{ $self->components };
-        $self->log->debug( 'Loaded components', $t->draw )
+        $self->log->debug( "Loaded components:\n" . $t->draw )
           if ( @{ $t->{tbl_rows} } );
     }