subtest 'calling undefined routine dies' => sub {
 my @r = trap{ working_l::setlist() };
 is( $trap->leaveby, 'die', "calling &working_l::setlist dies" );
 like( $trap->die, qr/(?=.*finalize)/i, "&working_l::setlist dies with finalize err" );
};

---output---
ok 1 - require 'working_l.pl';
ok 2 # skip workinprogress
    ok 1 - calling &working_l::setlist dies
    not ok 2 - &working_l::setlist dies with finalize err
    #   Failed test '&working_l::setlist dies with finalize err'
    #   at working.t line 36.
    #                   'Undefined subroutine &working_l::setlist called at working.t line 33.
    # '
    #     doesn't match '(?^i:(?=.*finalize))'
    1..2
    # Looks like you failed 1 test of 2.