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

[dhoss at dev.catalyst.perl.org]

Author: dhoss
Date: 2009-07-10 23:27:12 +0000 (Fri, 10 Jul 2009)
New Revision: 10837

Modified:
   Catalyst-Runtime/5.80/branches/better_scripts/lib/Catalyst/Script/Server.pm
Log:
removed except meta stuff since we're using autoclean


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-09 11:17:46 UTC (rev 10836)
+++ Catalyst-Runtime/5.80/branches/better_scripts/lib/Catalyst/Script/Server.pm	2009-07-10 23:27:12 UTC (rev 10837)
@@ -11,7 +11,7 @@
 use Pod::Usage;
 use Moose;
 #use Catalyst::Engine::HTTP;
-use namespace::autoclean -except => [ qw(meta) ];
+use namespace::autoclean;
 
 with 'MooseX::Getopt';
 
@@ -76,7 +76,7 @@
 
 ## broken now, WHY?!
 has app => ( 
-    traits => [qw(NoGetopt)],
+    #traits => [qw(NoGetopt)],
     isa => 'Str',    
     is => 'ro', 
     required => 1,
@@ -120,7 +120,6 @@
     my $self = shift;
     
     pod2usage() if $self->help;
-    warn "app is undef!" unless defined $self->app;
     my $app = $self->app;
     Class::MOP::load_class($app);
     $app->run(