File Coverage

blib/lib/Beam/Runner/Steps.pm

Criterion	Covered	Total	%
statement	15	15	100.0
branch	2	2	100.0
condition			n/a
subroutine	4	4	100.0
pod	0	1	0.0
total	21	22	95.4

package Beam::Runner::Steps;
our $VERSION = '0.016';
# ABSTRACT: Run a series of steps

#pod =head1 SYNOPSIS
#pod
#pod     beam run
#pod
#pod =head1 DESCRIPTION
#pod
#pod This runnable module runs a series of other runnable modules in
#pod sequence. If any module returns a non-zero value, the steps stop.
#pod
#pod =head1 SEE ALSO
#pod
#pod L, L
#pod
#pod =cut

use Moo;
use warnings;
with 'Beam::Runnable';
use Types::Standard qw( ArrayRef ConsumerOf );

#pod =attr steps
#pod
#pod The steps to run. Must be an arrayref of L objects.
#pod
#pod =cut

has steps => (
    is => 'ro',
    isa => ArrayRef[ConsumerOf['Beam::Runnable']],
    required => 1,
);

sub run {
    my ( $self, @args ) = @_;
    for my $step ( @{ $self->steps } ) {
        my $exit = $step->run( @args );
        return $exit if $exit != 0;
    }
    return 0;
}

1;

__END__