Fix RT #54203 (reported by chocolateboy) that setters might return undef.

[gitmo/Mouse.git] / caveats / RT69939.t

#!perl -w
# See the CAVEATS section in Mouse.pm
use strict;
use Test::More;

{
    package Class;
    use Mouse;

    has foo => (
        is  => 'rw',

        default => sub{
            # Ticket #69939
            # See the Mouse manpage

            #eval       'BEGIN{ die }';   # NG
            eval{ eval 'BEGIN{ die }' }; # OK
            ::pass 'in a default callback';
        },
    );
}

pass "class definition has been done";

isa_ok(Class->new, 'Class');

done_testing;