view release on metacpan or  search on metacpan

t/client/basic.t  view on Meta::CPAN

            $error,
            qr/You must provide a MessageHandler/,
            'Must have MessageHandler when creating Client',
        );

        die;
    };

    ok(
        exception { AnyEvent::eris::Client->new() },
        'Exception thrown',
    );
};

subtest 'New with non-code MessageHandler' => sub {
    no strict 'refs';
    no warnings qw<redefine once>;
    local *{'AE::log'} = sub ($$;@) {
        my ( $type, $error ) = @_;
        ::is( $type, 'fatal', 'Fatal error' );
        ::like(

t/client/basic.t  view on Meta::CPAN

        die;
    };

    ok(
        exception {
            AnyEvent::eris::Client->new(
                MessageHandler => 1,
            );
        },
        'Exception thrown',
    );
};

subtest 'New with code MessageHandler' => sub {
    my $client;
    is(
        exception {
            $client = AnyEvent::eris::Client->new(
                MessageHandler => sub {1},
            );