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