added .gitignore generator command

.gitignore

@@ -1,7 +1,11 @@
-.DS_Store
+.*
+!.gitignore
+!.perltidyrc
+*~
 blib
-Makefile
-Makefile.old
+Makefile*
+!Makefile.PL
+META.yml
+MANIFEST*
+!MANIFEST.SKIP
 pm_to_blib
-*~
-*.bak

Changes

@@ -11,6 +11,7 @@ This file documents the revision history for Perl extension Mojolicious.
           though it's still available and overrides auto detection.
         - Added Flash Policy Server example. (xantus)
         - Added more reference docs.
+        - Added .gitignore generator command. (marcus)
         - Removed hot deployment support for Windows because of
           incompatibilities between Active Perl and Strawberry Perl.
         - Made process id and lock file defaults more userfriendly in

lib/Mojo/Command/Generate/Gitignore.pm

@@ -0,0 +1,91 @@
+# Copyright (C) 2008-2010, Sebastian Riedel.
+
+package Mojo::Command::Generate::Gitignore;
+
+use strict;
+use warnings;
+
+use base 'Mojo::Command';
+
+__PACKAGE__->attr(description => <<'EOF');
+Generate .gitignore.
+EOF
+__PACKAGE__->attr(usage => <<"EOF");
+usage: $0 generate gitignore
+EOF
+
+# I want to see the edge of the universe.
+# Ooh, that sounds cool.
+# It's funny, you live in the universe, but you never get to do this things
+# until someone comes to visit.
+sub run {
+    my $self = shift;
+    $self->render_to_rel_file('gitignore', '.gitignore');
+    $self->chmod_file('.gitignore', 0644);
+}
+
+1;
+__DATA__
+@@ gitignore
+.*
+!.gitignore
+!.perltidyrc
+*~
+blib
+Makefile*
+!Makefile.PL
+META.yml
+MANIFEST*
+!MANIFEST.SKIP
+pm_to_blib
+__END__
+=head1 NAME
+
+Mojo::Command::Generate::Gitignore - Gitignore Generator Command
+
+=head1 SYNOPSIS
+
+    use Mojo::Command::Generate::Gitignore;
+
+    my $gitignore = Mojo::Command::Generate::Gitignore->new;
+    $gitignore->run(@ARGV);
+
+=head1 DESCRIPTION
+
+L<Mojo::Command::Generate::Gitignore> is a C<.gitignore> generator.
+
+=head1 ATTRIBUTES
+
+L<Mojo::Command::Generate::Gitignore> inherits all attributes from
+L<Mojo::Command> and implements the following new ones.
+
+=head2 C<description>
+
+    my $description = $gitignore->description;
+    $gitignore      = $gitignore->description('Foo!');
+
+Short description of this command, used for the command list.
+
+=head2 C<usage>
+
+    my $usage  = $gitignore->usage;
+    $gitignore = $gitignore->usage('Foo!');
+
+Usage information for this command, used for the help screen.
+
+=head1 METHODS
+
+L<Mojo::Command::Generate::Gitignore> inherits all methods from
+L<Mojo::Command> and implements the following new ones.
+
+=head2 C<run>
+
+    $gitignore = $gitignore->run(@ARGV);
+
+Run this command.
+
+=head1 SEE ALSO
+
+L<Mojolicious>, L<Mojolicious::Book>, L<http://mojolicious.org>.
+
+=cut