1#!/usr/bin/perl
2
3use strict;
4use warnings;
5
6use Test::More;
7
8use lib 't/lib';
9use My::Method::Signatures { compile_at_BEGIN => 0 };
10
11func no_sig { return @_ }
12
13note "signature_error_handler"; {
14    ok !eval { no_sig(42); 1 }, "no args";
15    my $exception = $@;
16    isa_ok($exception, 'My::ExceptionClass');
17    my $msg = $exception->{message};
18    like $msg, qr{no_sig\(\).*given too many arguments.*it expects 0};
19}
20
21done_testing;
22