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
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
|
use warnings;
use strict;
use Test::More;
BEGIN {
plan skip_all => "bare subs possible on this perl" if "$]" >= 5.011002;
}
plan tests => 12;
BEGIN { $^H |= 0x20000 if "$]" < 5.008; }
$SIG{__WARN__} = sub {
return if $_[0] =~ /\AAttempt to free unreferenced scalar[ :]/ &&
"$]" < 5.008004;
die "WARNING: $_[0]";
};
sub main::foo { "main" }
sub main::bar () { "main" }
our @values;
{ local $TODO = "bareword ref without parens works funny";
@values = ();
eval q{
use Lexical::Var '&foo' => sub () { 1 };
push @values, foo;
};
like $@, qr/\Acan't reference Lexical::Var lexical subroutine without \& sigil/;
is_deeply \@values, [];
}
@values = ();
eval q{
use Lexical::Var '&foo' => sub () { 1 };
push @values, foo();
};
like $@, qr/\Acan't reference Lexical::Var lexical subroutine without \& sigil/;
is_deeply \@values, [];
{ local $TODO = "bareword ref without parens works funny";
@values = ();
eval q{
use Lexical::Var '&foo' => sub ($) { 1+$_[0] };
push @values, foo 10;
};
like $@, qr/\Acan't reference Lexical::Var lexical subroutine without \& sigil/;
is_deeply \@values, [];
}
@values = ();
eval q{
use Lexical::Var '&foo' => sub ($) { 1+$_[0] };
push @values, foo(10);
};
like $@, qr/\Acan't reference Lexical::Var lexical subroutine without \& sigil/;
is_deeply \@values, [];
{ local $TODO = "constant subs work funny";
@values = ();
eval q{
use Lexical::Var '&foo' => sub () { 1 };
push @values, bar;
};
like $@, qr/\Acan't reference Lexical::Var lexical subroutine without \& sigil/;
is_deeply \@values, [];
@values = ();
eval q{
use Lexical::Var '&foo' => sub () { 1 };
push @values, bar();
};
like $@, qr/\Acan't reference Lexical::Var lexical subroutine without \& sigil/;
is_deeply \@values, [];
}
1;
|
