[Catalyst-commits] r10843 - Catalyst-Runtime/5.80/branches/better_scripts/lib/Catalyst/Script

[dhoss at dev.catalyst.perl.org]

Author: dhoss
Date: 2009-07-11 00:34:54 +0000 (Sat, 11 Jul 2009)
New Revision: 10843

Modified:
   Catalyst-Runtime/5.80/branches/better_scripts/lib/Catalyst/Script/Server.pm
Log:
added debug option


Modified: Catalyst-Runtime/5.80/branches/better_scripts/lib/Catalyst/Script/Server.pm
===================================================================
--- Catalyst-Runtime/5.80/branches/better_scripts/lib/Catalyst/Script/Server.pm	2009-07-11 00:31:58 UTC (rev 10842)
+++ Catalyst-Runtime/5.80/branches/better_scripts/lib/Catalyst/Script/Server.pm	2009-07-11 00:34:54 UTC (rev 10843)
@@ -15,6 +15,14 @@
 
 with 'MooseX::Getopt';
 
+has debug => (
+    traits => [qw(Getopt)],
+    cmd_aliases => 'd',
+    isa => 'Bool', 
+    is => 'ro',
+
+);
+
 has help => ( 
     traits => [qw(Getopt)],
     cmd_aliases => 'h',