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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
|
#!/usr/bin/perl
use v5.14;
use warnings;
use Test2::V0;
use Syntax::Keyword::Try qw( try :experimental );
sub func
{
my ( $ret, $except ) = @_;
try {
die $except if $except;
return "ret => $ret";
}
catch ($e isa X) {
return "X => [@$e]";
}
catch ($e =~ m/^Cannot /) {
chomp $e;
return "cannot => $e";
}
catch ($e) {
return "default => $e";
}
}
is( func( 123 ), "ret => 123", 'typed catch succeeds' );
is( func( 0, "failure\n" ), "default => failure\n",
'typed catch default case' );
is( func( 0, bless [45], "X" ), "X => [45]",
'typed catch isa case' );
is( func( 0, "Cannot do X\n" ), "cannot => Cannot do X",
'typed catch regexp case' );
sub fallthrough
{
my ( $except ) = @_;
try {
die $except;
}
catch ($e isa X) {
return "X => [@$e]";
}
# no default
}
is( fallthrough( bless ["OK"], "X" ), "X => [OK]",
'typed catch not fallthrough' );
is( eval { fallthrough( "Oopsie\n" ); 1 } ? undef : $@, "Oopsie\n",
'typed catch fallthrough' );
done_testing;
|
