summaryrefslogtreecommitdiff
path: root/xt/CLI.pm
diff options
context:
space:
mode:
authorTatsuhiko Miyagawa <miyagawa@bulknews.net>2013-07-22 14:27:09 -0700
committerTatsuhiko Miyagawa <miyagawa@bulknews.net>2013-07-22 14:27:09 -0700
commitfe439cd9d2c3a6a147be092f66e3a70eb2f6948c (patch)
tree1ef30e72c580e009bb526cfdf879e7f2842ecd01 /xt/CLI.pm
parent277c543e4052405a4c87d847d2e15ce13a0359c6 (diff)
downloadcarton-fe439cd9d2c3a6a147be092f66e3a70eb2f6948c.tar.gz
Builder now takes install target off of detected cpanfile location
Diffstat (limited to 'xt/CLI.pm')
-rw-r--r--xt/CLI.pm6
1 files changed, 6 insertions, 0 deletions
diff --git a/xt/CLI.pm b/xt/CLI.pm
index 0b58068..f2b6f3d 100644
--- a/xt/CLI.pm
+++ b/xt/CLI.pm
@@ -31,6 +31,12 @@ sub write_cpanfile {
$self->dir->child('cpanfile')->spew(@args);
}
+sub run_in_dir {
+ my($self, $dir, @args) = @_;
+ local $self->{dir} = $self->dir->child($dir);
+ $self->run(@args);
+}
+
sub run {
my($self, @args) = @_;