add ability to generate commandline from parsed arg object

[gitmo/MooseX-Runnable.git] / lib / MooseX / Runnable / Util / ArgParser.pm

diff --git a/lib/MooseX/Runnable/Util/ArgParser.pm b/lib/MooseX/Runnable/Util/ArgParser.pm
index a5b4317..833f983 100644 (file)
--- a/lib/MooseX/Runnable/Util/ArgParser.pm
+++ b/lib/MooseX/Runnable/Util/ArgParser.pm
@@ -4,6 +4,8 @@ use MooseX::Types::Moose qw(HashRef ArrayRef Str Bool);
 use MooseX::Types::Path::Class qw(Dir);
 use List::MoreUtils qw(first_index);
 
+use FindBin;
+
 use namespace::autoclean -also => ['_look_for_dash_something', '_delete_first'];
 
 has 'argv' => (
@@ -196,9 +198,13 @@ sub _build_app_args {
 
     my %plugins = %{ $self->plugins };
 
+  PLUGIN:
     for my $p (keys %plugins){
         my $vl = scalar @{ $plugins{$p} };
-        splice @args, (first_index { $_ eq "+$p" } @args), $vl + 1;
+        my $idx = first_index { $_ eq "+$p" } @args;
+        next PLUGIN if $idx == -1; # HORRIBLE API!
+
+        splice @args, $idx, $vl + 1;
     }
 
     if($args[0] eq '--'){
@@ -216,6 +222,34 @@ sub _build_app_args {
     return [@args];
 }
 
+# XXX: bad
+sub guess_cmdline {
+    my ($self, %opts) = @_;
+
+    confess 'Parser is help' if $self->is_help;
+
+    my @perl_flags = @{$opts{perl_flags} || []};
+    my @without_plugins = @{$opts{without_plugins} || []};
+
+    # invoke mx-run
+    my @cmdline = ($^X, @perl_flags, $FindBin::Bin.'/'.$FindBin::Script);
+    push @cmdline, map { "-I$_" } $self->include_paths;
+    push @cmdline, map { "-M$_" } $self->modules;
+
+  p:
+    for my $plugin (keys %{$self->plugins}){
+        for my $without (@without_plugins) {
+            next p if $without eq $plugin;
+        }
+        push @cmdline, "+$plugin", @{$self->plugins->{$plugin} || []};
+    }
+    push @cmdline, '--';
+    push @cmdline, $self->class_name;
+    push @cmdline, $self->app_args;
+
+    return @cmdline;
+}
+
 1;
 
 __END__