Added first welcome screen mockup

[catagits/Catalyst-Runtime.git] / lib / Catalyst / Helper.pm

diff --git a/lib/Catalyst/Helper.pm b/lib/Catalyst/Helper.pm
index 0f2de20..14af0d1 100644 (file)
--- a/lib/Catalyst/Helper.pm
+++ b/lib/Catalyst/Helper.pm
@@ -463,7 +463,7 @@ sub default : Private {
     my ( $self, $c ) = @_;
 
     # Hello World
-    $c->response->output('Congratulations, [% name %] is on Catalyst!');
+    $c->response->output( $c->welcome_message );
 }
 
 #=item end
@@ -661,6 +661,8 @@ my $restart       = 0;
 my $restart_delay = 1;
 my $restart_regex = '\.yml$|\.yaml$|\.pm$';
 
+my @argv = @ARGV;
+
 GetOptions(
     'fork'              => \$fork,
     'help|?'            => \$help,
@@ -674,6 +676,7 @@ GetOptions(
 pod2usage(1) if $help;
 
 [% name %]->run( $port, $host, {
+    argv   => \@argv,
     'fork' => $fork,
     restart => $restart,
     restart_delay => $restart_delay,