add non-catalyst project support to catgit :)

jrockway · Jan 15, 2008 · 9ac654d · 9ac654d
1 parent c08ff11
commit 9ac654d
Show file tree

Hide file tree

Showing 2 changed files with 12 additions and 0 deletions.
diff --git a/Makefile.PL b/Makefile.PL
@@ -8,5 +8,6 @@ license 'take what you want';
 requires 'File::Attributes';
 requires 'File::pushd';
 requires 'List::Util';
+requires 'IO::Any';
 
 WriteAll();
diff --git a/bin/catgit.pl b/bin/catgit.pl
@@ -5,14 +5,25 @@
 use File::pushd;
 use Term::ReadLine;
 use File::Slurp;
+use IO::All;
 
 # proj must never contain shell metachars kthx :)
 
 my $proj = shift @ARGV;
+my @args = @ARGV;
+my $no_cat = grep { /^(?:-n|--no-cat(?:alyst)?)$/ } @args;
+
 `catalystx-starter $proj`;
 $proj =~ s/::/-/g;
 { 
     my $dir = pushd $proj;
+    if($no_cat){
+        `rm -rf t/live-test.t`;
+        `rm -rf t/lib`;
+        my $mf < io 'Makefile.PL';
+        $mf =~ s/^(build_)?requires.+Catalyst.*\n//mg;
+        $mf > io 'Makefile.PL';
+    }
     `git init`;
     rename 'gitignore', '.gitignore';
     `git add * .gitignore`;