The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use strict;
use Test::More tests => 4;
use Protect::Unwind;

my $i = 0;

is($i++, 0, 'start');

protect {
  is($i++, 1, 'inside protected');
} unwind {
  is($i++, 2, 'inside after');
};

is($i++, 3, 'all done');