From: Sebastian Riedel <sri@labs.kraih.com>
Date: Sat, 2 Apr 2005 20:27:37 +0000 (+0000)
Subject: prettier lists
X-Git-Tag: 5.7099_04~1619
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=commitdiff_plain;h=91dc9907365d9a8b25836d3c3bf68683af18eb7d

prettier lists
---

diff --git a/lib/Catalyst.pm b/lib/Catalyst.pm
index e61d793..1a7b672 100644
--- a/lib/Catalyst.pm
+++ b/lib/Catalyst.pm
@@ -144,17 +144,17 @@ sub import {
         $caller->log->debug('Debug messages enabled');
     }
 
-    my $engine ='Catalyst::Engine::CGI';
+    my $engine = 'Catalyst::Engine::CGI';
 
     if ( $ENV{MOD_PERL} ) {
 
         require mod_perl;
 
         if ( $mod_perl::VERSION >= 1.99 ) {
-            $engine ='Catalyst::Engine::Apache::MP2';
+            $engine = 'Catalyst::Engine::Apache::MP2';
         }
         else {
-            $engine ='Catalyst::Engine::Apache::MP1';
+            $engine = 'Catalyst::Engine::Apache::MP1';
         }
     }
 
@@ -172,12 +172,12 @@ sub import {
             my $plugin = "Catalyst::Plugin::$_";
 
             $plugin->require;
-            
+
             if ($@) {
                 $caller->log->error(qq/Couldn't load plugin "$plugin", "$@"/);
             }
             else {
-                push @plugins, "  $plugin";
+                push @plugins, "  + $plugin";
                 no strict 'refs';
                 push @{"$caller\::ISA"}, $plugin;
             }
diff --git a/lib/Catalyst/Engine.pm b/lib/Catalyst/Engine.pm
index d8d47b5..370ff5e 100644
--- a/lib/Catalyst/Engine.pm
+++ b/lib/Catalyst/Engine.pm
@@ -133,7 +133,7 @@ sub execute {
         {
             my $action = $c->actions->{reverse}->{"$code"};
             $action = "/$action" unless $action =~ /\-\>/;
-            $action = "  $action" if $callsub =~ /forward$/;
+            $action = "-> $action" if $callsub =~ /forward$/;
             my ( $elapsed, @state ) =
               $c->benchmark( $code, $class, $c, @{ $c->req->args } );
             push @{ $c->{stats} },
@@ -548,7 +548,7 @@ sub prepare {
         my @params;
         for my $key ( keys %{ $c->req->params } ) {
             my $value = $c->req->params->{$key} || '';
-            push @params, "  $key=$value";
+            push @params, "  + $key=$value";
         }
         $c->log->debug( 'Parameters are', @params );
     }
@@ -845,7 +845,7 @@ sub setup_components {
         $self->setup_actions($comp);
     }
     my @comps;
-    push @comps, "  $_" for keys %{ $self->components };
+    push @comps, "  + $_" for keys %{ $self->components };
     $self->log->debug( 'Loaded components', @comps )
       if ( @comps && $self->debug );
     my $actions  = $self->actions;
@@ -918,9 +918,8 @@ sub _class2prefix {
 
 sub _prettify_action {
     my ( $val1, $val2, $val3 ) = @_;
-    formline
-'  @<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @<<<<<<<<<<<<<<<<<<<<<<<<<<<< @>>>>>>>>>>>>>>  ',
-      $val1, $val2, $val3;
+    formline '  + @<<<<<<<<<<<<<<<<<<<<<<<<<<< @<<<<<<<<<<<<<<<<<<<<<<<<<<<<'
+      . ' @>>>>>>>>>>>>>>  ', $val1, $val2, $val3;
     my $formatted = $^A;
     $^A = '';
     return $formatted;
@@ -928,7 +927,7 @@ sub _prettify_action {
 
 sub _prettify_stats {
     my ( $val1, $val2 ) = @_;
-    formline '  @<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @<<<<<<<<<<<<<<<<<<<<<<<<<<<< ',
+    formline '  + @<<<<<<<<<<<<<<<<<<<<<<<<<<< @<<<<<<<<<<<<<<<<<<<<<<<<<<<< ',
       $val1, $val2;
     my $formatted = $^A;
     $^A = '';