File Coverage

blib/lib/Rex/Test/Spec/run.pm

Criterion	Covered	Total	%
statement	7	9	77.7
branch			n/a
condition			n/a
subroutine	3	3	100.0
pod			n/a
total	10	12	83.3

package Rex::Test::Spec::run;

use strict;
use warnings;

use Rex -base;

sub new {
  my $that  = shift;
  my $proto = ref($that) || $that;
  my $self  = {@_};

  bless( $self, $proto );

  my ( $pkg, $file ) = caller(0);
  $self->doit;
  return $self;
}

sub doit {
  my ( $self ) = @_;
  run($self->{name}, sub{
    ($self->{stdout}, $self->{stderr}) = @_;
  });
}

sub getvalue {
  my ( $self, $key ) = @_;
  return $self->{$key};
}

1;