[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
);
BEGIN { is($i, 0) }

is_deeply(\@foo, ['method', '123']);

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
f7acf3b0	25	my @foo = (
	26	method
	27	=>
	28	123
	29	);
358aacb2	30	BEGIN { is($i, 0) }
2424de2d	31
8781bcf2	32	is_deeply(\@foo, ['method', '123']);
8781bcf2	33
2424de2d	34	done_testing;