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;