From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

BAREFOOT / Method-Signatures-20130218.1447_001 / t / lib / My / Method / Signatures.pm 

            

              
1
2
3
4
5
6
7
8
9
10

              
package My::Method::Signatures;
use base 'Method::Signatures';
sub signature_error_handler {
    my ($class, $msg) = @_;
    die bless { message => $msg }, 'My::ExceptionClass';
}
1;