1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
|
#!/usr/bin/perl
use v5.14;
use warnings;
use Test2::V0;
use Syntax::Keyword::Try;
# forbidding finally
{
use Syntax::Keyword::Try '-no_finally';
ok( !defined eval <<'EOPERL',
try { 123 }
finally { 456 }
EOPERL
'try/finally is forbidden' );
like( $@, qr/^finally \{\} is not permitted here / );
}
# require var
{
use Syntax::Keyword::Try '-require_var';
ok( !defined eval <<'EOPERL',
try { 123 }
catch { 456 }
EOPERL
'try/catch requires var' );
like( $@, qr/^Expected \(VAR\) for catch / );
}
done_testing;
|
