The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use Test::Given;
use strict;
use warnings;

describe 'Exception in Given And', sub {
  context 'time to die' => sub {
    Given sub {};
    And   sub { die 'Given And died' };
    Then sub { 'Passing inner Then' };
  };

  context 'another test' => sub {
    Then sub { 'Passing test never reached' };
  };

  Then sub { 'Passing outer Then'};
};