- or download this
{
foo() || die "foo() didn't return true";
bar() || die "bar() didn't return true";
... and so on
}
- or download this
every { block of statements }
run { block to be run after each statement in 1st block }
- or download this
every {
foo();
...
my $result = shift; # What the statement returned
die "Command $command did not return true!" unless $result;
}