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;