The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
package Minilla::Release::RunHooks;
use strict;
use warnings;
use utf8;

sub run {
    my ($self, $project, $opts) = @_;

    my $return_value = 0;
    my $commands     = $project->config->{release}->{hooks};

    if ($commands) {
        if (ref $commands ne 'ARRAY') {
            warn "Release hooks must be array";
            exit 1;
        }
        $return_value = system(join ' && ', @$commands);
    }

    if ($return_value != 0) {
        # Failure executing command of hooks
        exit 1;
    }
}

1;