Select Code to Download

# https://perlmonks.org/?node_id=11119273
use strict;
use warnings;
...
}

#diag "Show sig implementation:\n", B::Deparse->new()->coderef2text(\&
+foo);

C:/Perl_524/bin\perl.exe -w d:/exp/pm_signatures.pl 
ok 1 - <foo(qw//)>      ERR: Too few arguments: 
ok 2 - <foo(qw/a/)>      One arg: @_ == 1
...
ok 4 - <foo(qw/a b c/)>      ERR: Too many arguments: 
1..4