[carton] 325/472: Support carton install --without develop #66

[Lucas Kanashiro]

This is an automated email from the git hooks/post-receive script.

kanashiro-guest pushed a commit to branch master
in repository carton.

commit 3476c241a88578c17664c0696f0b93eb73f28a99
Author: Tatsuhiko Miyagawa <miyagawa at bulknews.net>
Date:   Fri Jul 19 23:33:09 2013 -0700

    Support carton install --without develop #66
---
 lib/Carton/Builder.pm | 14 +++++++++++++-
 lib/Carton/CLI.pm     |  5 ++++-
 2 files changed, 17 insertions(+), 2 deletions(-)

diff --git a/lib/Carton/Builder.pm b/lib/Carton/Builder.pm
index e71c557..dadae87 100644
--- a/lib/Carton/Builder.pm
+++ b/lib/Carton/Builder.pm
@@ -5,6 +5,7 @@ use Moo;
 has mirror  => (is => 'rw');
 has index   => (is => 'rw');
 has cascade => (is => 'rw', default => sub { 1 });
+has without => (is => 'rw', default => sub { [] });
 
 sub effective_mirrors {
     my $self = shift;
@@ -51,11 +52,22 @@ sub install {
         ( $self->cascade ? "--cascade-search" : () ),
         ( $self->custom_mirror ? "--mirror-only" : () ),
         "--save-dists", "$path/cache",
-        "--with-develop",
+        $self->groups,
         "--installdeps", ".",
     ) or die "Installing modules failed\n";
 }
 
+sub groups {
+    my $self = shift;
+
+    my @options;
+    unless (grep $_ eq 'develop', @{$self->without}) {
+        push @options, '--with-develop';
+    }
+
+    return @options;
+}
+
 sub update {
     my($self, $path, @modules) = @_;
 
diff --git a/lib/Carton/CLI.pm b/lib/Carton/CLI.pm
index bd129d5..6d53251 100644
--- a/lib/Carton/CLI.pm
+++ b/lib/Carton/CLI.pm
@@ -173,10 +173,12 @@ sub cmd_install {
     my($self, @args) = @_;
 
     my $path = $self->install_path;
+    my @without;
 
     $self->parse_options(
         \@args,
         "p|path=s"    => \$path,
+        "without=s"   => sub { @without = split /,/, $_[1] },
         "deployment!" => \my $deployment,
         "cached!"     => \my $cached,
     );
@@ -191,7 +193,8 @@ sub cmd_install {
 
     my $builder = Carton::Builder->new(
         cascade => 1,
-        mirror => $self->mirror,
+        mirror  => $self->mirror,
+        without => \@without,
     );
 
     if ($deployment) {

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/carton.git