[p5sagit/Devel-Declare.git] / t / no-bareword.t

use strict;
use warnings;
use Test::More;

our $i;
BEGIN { $i = 0 };

sub method { }
BEGIN {
        require Devel::Declare;
        Devel::Declare->setup_for(
                __PACKAGE__,
                { "method" => { const => sub { $i++ } } },
        );
}

{
    package Foo;
    sub method { }
}

Foo->method;
BEGIN { is($i, 0) }

my @foo = (method => 123);
TODO: {
    BEGIN {
        local $TODO = 'fat commas not quoting barewords';
        is($i, 0);
    }
}

done_testing;
Commit	Line	Data
2424de2d	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;