projects
/
p5sagit/Devel-Declare.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
80f9b0ddf37b7fbb7eb6f31c1f628264353bf0b1
[p5sagit/Devel-Declare.git]
/
t
/
no-bareword.t
1
use strict;
2
use warnings;
3
use Test::More;
4
5
our $i;
6
BEGIN { $i = 0 };
7
8
sub method { }
9
BEGIN {
10
require Devel::Declare;
11
Devel::Declare->setup_for(
12
__PACKAGE__,
13
{ "method" => { const => sub { $i++ } } },
14
);
15
}
16
17
{
18
package Foo;
19
sub method { }
20
}
21
22
Foo->method;
23
BEGIN { is($i, 0) }
24
25
my @foo = (method => 123);
26
TODO: {
27
BEGIN {
28
local $TODO = 'fat commas not quoting barewords';
29
is($i, 0);
30
}
31
}
32
33
done_testing;