added start_app method to Mojo::Command

mojolicious · Mar 24, 2012 · 7028e9b · 7028e9b
1 parent 386f7b9
commit 7028e9b
Show file tree

Hide file tree

Showing 5 changed files with 22 additions and 20 deletions.
diff --git a/Changes b/Changes
@@ -1,6 +1,7 @@
 This file documents the revision history for Perl extension Mojolicious.
 
 2.67  2012-03-24
+  - Added start_app method to Mojo::Command.
   - Improved documentation.
   - Improved tests.
 

diff --git a/lib/Mojo/Command.pm b/lib/Mojo/Command.pm
@@ -233,6 +233,12 @@ sub start {
   ref $self ? $self->run(@args) : $self->new->run(@args);
 }
 
+sub start_app {
+  my $self = shift;
+  $ENV{MOJO_APP} = shift;
+  $self->start(@_);
+}
+
 sub write_file {
   my ($self, $path, $data) = @_;
 
@@ -487,6 +493,13 @@ disabled with the C<MOJO_NO_DETECT> environment variable.
 
 Start the command line interface.
 
+=head2 C<start_app>
+
+  Mojo::Command->start_app('MyApp');
+  Mojo::Command->start_app(MyApp => @ARGV);
+
+Start the command line interface for application.
+
 =head2 C<write_file>
 
   $command = $command->write_file('/foo/bar.txt', 'Hello World!');

diff --git a/lib/Mojolicious/Command/generate/app.pm b/lib/Mojolicious/Command/generate/app.pm
@@ -68,11 +68,8 @@ Please visit http://mojolicio.us for detailed installation instructions.
 
 EOF
 
-# Application
-$ENV{MOJO_APP} ||= '<%= $class %>';
-
-# Start commands
-Mojolicious::Commands->start;
+# Start commands for application
+Mojolicious::Commands->start_app('<%= $class %>');
 
 @@ appclass
 % my $class = shift;

diff --git a/lib/Mojolicious/Guides/Growing.pod b/lib/Mojolicious/Guides/Growing.pod
@@ -555,11 +555,8 @@ allow running unit tests again.
   use lib 'lib';
   use Mojolicious::Commands;
 
-  # Application
-  $ENV{MOJO_APP} = 'MyApp';
-
-  # Start commands
-  Mojolicious::Commands->start;
+  # Start commands for application
+  Mojolicious::Commands->start_app('MyApp');
 
 =head2 Controller class
 
@@ -672,11 +669,8 @@ environments.
 
   EOF
 
-  # Application
-  $ENV{MOJO_APP} ||= 'MyApp';
-
-  # Start commands
-  Mojolicious::Commands->start;
+  # Start commands for application
+  Mojolicious::Commands->start_app('MyApp');
 
 =head2 Simplified tests
 

diff --git a/t/mojolicious/external/script/my_app b/t/mojolicious/external/script/my_app
@@ -24,8 +24,5 @@ Please visit http://mojolicio.us for detailed installation instructions.
 
 EOF
 
-# Application
-$ENV{MOJO_APP} ||= 'MyApp';
-
-# Start commands
-Mojolicious::Commands->start;
+# Start commands for application
+Mojolicious::Commands->start_app('MyApp');