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
|
use warnings;
use strict;
BEGIN {
eval {
require Sub::StrictDecl;
Sub::StrictDecl->VERSION(0.001);
};
if($@ ne "") {
require Test::More;
Test::More::plan(skip_all =>
"good Sub::StrictDecl unavailable");
}
}
use Test::More tests => 4;
use Devel::CallParser ();
my $r;
$r = eval(q{
use Sub::StrictDecl;
if(0) { foo0(); }
1;
});
is $r, undef;
like $@, qr/\AUndeclared subroutine &main::foo0/;
$r = eval(q{
use Sub::StrictDecl;
sub foo1;
if(0) { foo1(); }
1;
});
is $r, 1;
is $@, "";
1;
|
