Catalyst::Devel - kill C3 warnings on 5.10

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

diff --git a/lib/Catalyst/Helper.pm b/lib/Catalyst/Helper.pm
index e3176e5..97598b5 100644 (file)
--- a/lib/Catalyst/Helper.pm
+++ b/lib/Catalyst/Helper.pm
@@ -91,6 +91,7 @@ sub mk_app {
         $self->_mk_server;
         $self->_mk_test;
         $self->_mk_create;
+        $self->_mk_information;
     }
     return $self->{dir};
 }
@@ -258,6 +259,11 @@ sub render_file {
     $self->mk_file( $path, $output );
 }
 
+sub _mk_information {
+    my $self = shift;
+    print qq/Change to application directory and Run "perl Makefile.PL" to make sure your install is complete\n/;
+}
+
 sub _mk_dirs {
     my $self = shift;
     $self->mk_dir( $self->{dir} );
@@ -510,6 +516,34 @@ All helper classes should be under one of the following namespaces.
     Catalyst::Helper::View::
     Catalyst::Helper::Controller::
 
+=head2 COMMON HELPERS 
+
+=over
+
+=item *
+
+L<Catalyst::Helper::Model::DBIC::Schema> - DBIx::Class models
+
+=item *
+
+L<Catalyst::Helper::View::TT> - Template Toolkit view
+
+=item *
+
+L<Catalyst::Helper::Model::LDAP>
+
+=item *
+
+L<Catalyst::Helper::Model::Adaptor> - wrap any class into a Catalyst model
+
+=back
+
+=head3 NOTE
+
+The helpers will read author name from /etc/passwd by default. + To override, please export the AUTHOR variable. 
+
+=head1 METHODS
+
 =head2 mk_compclass
 
 This method in your Helper module is called with C<$helper>
@@ -541,7 +575,7 @@ arguments the user typed.
 
 There is no fallback for this method.
 
-=head1 METHODS
+=head1 INTERNAL METHODS
 
 These are the methods that the Helper classes can call on the
 <$helper> object passed to them.
@@ -945,7 +979,7 @@ my @argv = @ARGV;
 
 GetOptions(
     'debug|d'             => \$debug,
-    'fork'                => \$fork,
+    'fork|f'              => \$fork,
     'help|?'              => \$help,
     'host=s'              => \$host,
     'port=s'              => \$port,
@@ -1139,7 +1173,6 @@ pod2usage(1) unless $helper->mk_component( '[% name %]', @ARGV );
 
  Examples:
    [% appprefix %]_create.pl controller My::Controller
-   [% appprefix %]_create.pl controller My::Controller BindLex
    [% appprefix %]_create.pl -mechanize controller My::Controller
    [% appprefix %]_create.pl view My::View
    [% appprefix %]_create.pl view MyView TT