|
## name Bad1
## failures 1
## cut
use experimental qw( signatures );
sub foo ($a, $b) {
my @x = @_;
}
## name Bad2
## failures 1
## cut
use experimental qw( signatures );
sub foo ($a) {
my $x = $_[0];
}
## name Prototype
## failures 0
## cut
sub foo ($$) {
my @x = @_;
}
## name code ref inside sub with sig
## failures 0
## cut
use experimental qw( signatures );
sub foo ($a) {
return sub { return @_ }
}
## name code ref inside sub with sig
## failures 0
## cut
use experimental qw( signatures );
sub foo ($a) {
sub bar { return @_ }
}
|