3 use Test::More tests => 19;
5 use warnings FATAL => 'all';
8 use Function::Parameters;
10 fun hörps($x) { $x * 2 }
11 fun drau($spın̈al_tap) { $spın̈al_tap * 3 }
12 fun ääää($éééééé) { $éééééé * 4 }
18 is eval('fun á(){} 1'), 1;
21 is eval('fun ́(){} 1'), undef;
22 like $@, qr/ function body/;
24 is eval(q<fun 'hi(){} 1>), undef;
25 like $@, qr/ function body/;
27 is eval('fun ::hi(){} 1'), 1;
30 is eval('fun 123(){} 1'), undef;
31 like $@, qr/ function body/;
33 is eval('fun main::234(){} 1'), undef;
34 like $@, qr/ function body/;
36 is eval('fun m123(){} 1'), 1;
39 is eval('fun ::m234(){} 1'), 1;