gistfile1.pl

use strict;
use warnings;

use Test::Requires {
    'Test::Stream::Tester' => 0,
    'Test::Builder '       => '1.0302007',
};

use Test::Stream::Tester;
use Test::More;
use Test::Moose;

{
    package Foo;
    use Moose;
}

{
    package Bar;
    use Moose;
}

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