| Subject: | Perl 5 prototype |
Pasting from the pod:
# Perl 5 code
$check = sub ($a, $b, $c, $err_msg) {
my ($a, $b, $c, $err_msg) = @_;
$a == $b**2 * $c or die $err_msg;
};
Although Perl doesn't complain, the prototype actually is ($$$$). Not that it's ever checked on runtime thingies, of course... :)