gistfile1.txt

{
    events_are(
        intercept {
            with_immutable {
                ok( Foo->meta->is_mutable );
            }
            'Foo';
        },
        events {
            event 'Subtest' => sub {
                events {
                    event_call diag => [qr/Foo is not immutable/];
                    event Ok        => sub {
                        event_call pass => 1;
                    };
                    event Plan => { max => 1 };
                };
            };
            event 'Subtest' => sub {
                events {
                    event_call diag => [qr/Foo is immutable/];
                    event Ok        => sub {
                        event_call pass => 0;
                    };
                    event Plan => { max => 1 };
                };
            };
            event Plan => { max => 2 };
        },
    );
}