projects
/
p5sagit/Devel-Declare.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
7dd627fe2812056b33d199571d99176c8132a193
[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 = (
26
method
27
=>
28
123
29
);
30
31
TODO: {
32
BEGIN {
33
local $TODO = 'fat commas not quoting barewords';
34
is($i, 0);
35
}
36
}
37
38
is_deeply(\@foo, ['method', '123']);
39
40
done_testing;