Perl x Open Food Facts Hackathon: Paris, France - May 24-25 Learn more

MAUKE / Function-Parameters-2.000005-TRIAL / t / foreign / Method-Signatures-Simple / RT80510.t 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13

              
#!perl
use strict;
use warnings FATAL => 'all';
use Test::More tests => 2;
use Function::Parameters qw(:lax);
fun empty ($x) {}
is scalar empty(1), undef, "empty func returns nothing (scalar context)";
is_deeply [empty(1,2)], [], "empty func returns nothing (list context)";
__END__