Permalink
Fetching contributors…
Cannot retrieve contributors at this time
22 lines (15 sloc) 432 Bytes
#!/usr/bin/perl
use strict;
use warnings;
use Test::More;
use lib 't/lib';
use My::Method::Signatures { compile_at_BEGIN => 0 };
func no_sig { return @_ }
note "signature_error_handler"; {
ok !eval { no_sig(42); 1 }, "no args";
my $exception = $@;
isa_ok($exception, 'My::ExceptionClass');
my $msg = $exception->{message};
like $msg, qr{no_sig\(\).*given too many arguments.*it expects 0};
}
done_testing;