1 files changed, 114 insertions, 0 deletions
diff --git a/lib/Carton/Builder.pm b/lib/Carton/Builder.pm
new file mode 100644
index 0000000..de456d7
--- /dev/null
+++ b/lib/Carton/Builder.pm
@@ -0,0 +1,114 @@
+package Carton::Builder;
+use strict;
+use Class::Tiny {
+    mirror => undef,
+    index  => undef,
+    cascade => sub { 1 },
+    without => sub { [] },
+    cpanfile => undef,
+    fatscript => sub { $_[0]->_build_fatscript },
+};
+
+sub effective_mirrors {
+    my $self = shift;
+
+    # push default CPAN mirror always, as a fallback
+    # TODO don't pass fallback if --cached is set?
+
+    my @mirrors = ($self->mirror);
+    push @mirrors, Carton::Mirror->default if $self->custom_mirror;
+    push @mirrors, Carton::Mirror->new('http://backpan.perl.org/');
+
+    @mirrors;
+}
+
+sub custom_mirror {
+    my $self = shift;
+    ! $self->mirror->is_default;
+}
+
+sub bundle {
+    my($self, $path, $cache_path, $snapshot) = @_;
+
+    for my $dist ($snapshot->distributions) {
+        my $source = $path->child("cache/authors/id/" . $dist->pathname);
+        my $target = $cache_path->child("authors/id/" . $dist->pathname);
+
+        if ($source->exists) {
+            warn "Copying ", $dist->pathname, "\n";
+            $target->parent->mkpath;
+            $source->copy($target) or warn "$target: $!";
+        } else {
+            warn "Couldn't find @{[ $dist->pathname ]}\n";
+        }
+    }
+}
+
+sub install {
+    my($self, $path) = @_;
+
+    $self->run_cpanm(
+        "-L", $path,
+        (map { ("--mirror", $_->url) } $self->effective_mirrors),
+        ( $self->index ? ("--mirror-index", $self->index) : () ),
+        ( $self->cascade ? "--cascade-search" : () ),
+        ( $self->custom_mirror ? "--mirror-only" : () ),
+        "--save-dists", "$path/cache",
+        $self->groups,
+        "--cpanfile", $self->cpanfile,
+        "--installdeps", $self->cpanfile->dirname,
+    ) or die "Installing modules failed\n";
+}
+
+sub groups {
+    my $self = shift;
+
+    # TODO support --without test (don't need test on deployment)
+    my @options = ('--with-all-features', '--with-develop');
+
+    for my $group (@{$self->without}) {
+        push @options, '--without-develop' if $group eq 'develop';
+        push @options, "--without-feature=$group";
+    }
+
+    return @options;
+}
+
+sub update {
+    my($self, $path, @modules) = @_;
+
+    $self->run_cpanm(
+        "-L", $path,
+        (map { ("--mirror", $_->url) } $self->effective_mirrors),
+        ( $self->custom_mirror ? "--mirror-only" : () ),
+        "--save-dists", "$path/cache",
+        @modules
+    ) or die "Updating modules failed\n";
+}
+
+sub _build_fatscript {
+    my $self = shift;
+
+    my $fatscript;
+    if ($Carton::Fatpacked) {
+        require Module::Reader;
+        my $content = Module::Reader::module_content('App::cpanminus::fatscript')
+            or die "Can't locate App::cpanminus::fatscript";
+        $fatscript = Path::Tiny->tempfile;
+        $fatscript->spew($content);
+    } else {
+        require Module::Metadata;
+        $fatscript = Module::Metadata->find_module_by_name("App::cpanminus::fatscript")
+            or die "Can't locate App::cpanminus::fatscript";
+    }
+
+    return $fatscript;
+}
+
+sub run_cpanm {
+    my($self, @args) = @_;
+    local $ENV{PERL_CPANM_OPT};
+    !system $^X, $self->fatscript, "--quiet", "--notest", @args;
+}
+
+1;