Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

added .gitignore generator command

  • Loading branch information...
commit fafc3f89986e12ec38d40cefa6027edf9afc3c4b 1 parent 6d14c84
Sebastian Riedel authored
Showing with 101 additions and 5 deletions.
  1. +9 −5 .gitignore
  2. +1 −0  Changes
  3. +91 −0 lib/Mojo/Command/Generate/Gitignore.pm
View
14 .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
View
1  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
View
91 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
Please sign in to comment.
Something went wrong with that request. Please try again.