X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=blobdiff_plain;f=lib%2FCatalyst%2FScript%2FServer.pm;h=4da0f0b9694964ec478d105549577ff1431f6604;hp=5f0ac06074ee22dc3ddaeb4d1cbb0b8fbb96692d;hb=14d2fa6a7c8d5033bcec01095abe5f95610e91db;hpb=161e6a870dbd722bbf398ab38ab55ed9856b5276

diff --git a/lib/Catalyst/Script/Server.pm b/lib/Catalyst/Script/Server.pm
index 5f0ac06..4da0f0b 100644
--- a/lib/Catalyst/Script/Server.pm
+++ b/lib/Catalyst/Script/Server.pm
@@ -14,6 +14,14 @@ has debug => (
     documentation => q{Force debug mode},
 );
 
+has trace => (
+    traits        => [qw(Getopt)],
+    cmd_aliases   => 'd',
+    isa           => 'Integer',
+    is            => 'ro',
+    documentation => q{Force trace mode},
+);
+
 has host => (
     traits        => [qw(Getopt)],
     cmd_aliases   => 'h',
@@ -197,6 +205,9 @@ sub run {
     local $ENV{CATALYST_DEBUG} = 1
         if $self->debug;
 
+    local $ENV{CATALYST_TRACE} = $self->trace
+        if $self->trace;
+
     if ( $self->restart ) {
         die "Cannot run in the background and also watch for changed files.\n"
             if $self->background;