test for CmdLine

1 files changed, 17 insertions, 6 deletions

diff --git a/lib/Sietima/CmdLine.pm b/lib/Sietima/CmdLine.pm
index 3d78be2..20141df 100644
--- a/lib/Sietima/CmdLine.pm
+++ b/lib/Sietima/CmdLine.pm
@@ -29,20 +29,31 @@ sub BUILDARGS($class,@args) {
     return $args;
 }
 
-sub run($self) {
+has app_spec => (
+    is => 'lazy',
+    init_arg => undef,
+);
+
+sub _build_app_spec($self) {
     my $spec_data = $self->sietima->command_line_spec();
 
-    my $app_spec = App::Spec->read({
+    return App::Spec->read({
         $spec_data->%*,
         $self->extra_spec->%*,
     });
+}
 
-    my $runner = Sietima::Runner->new({
-        spec => $app_spec,
+has runner => (
+    is => 'lazy',
+    init_arg => undef,
+    handles => [qw(run)],
+);
+
+sub _build_runner($self) {
+    return Sietima::Runner->new({
+        spec => $self->app_spec,
         cmd => $self->sietima,
     });
-
-    $runner->run;
 }
 
 1;