[gitmo/Moose.git] / t / bugs / subtype_quote_bug.t

#!/usr/bin/perl

use strict;
use warnings;

use Test::More;

=pod

This is a test for a bug found by Purge on #moose:
The code:

  subtype Stuff
    => as Object
    => where { ... }

will break if the Object:: namespace exists. So the
solution is to quote 'Object', like so:

  subtype Stuff
    => as 'Object'
    => where { ... }

Moose 0.03 did this, now it doesn't, so all should
be well from now on.

=cut

{ package Object::Test; }

{
    package Foo;
    ::use_ok('Moose');
}

done_testing;
Commit	Line	Data
e9ec68d6	1	#!/usr/bin/perl
	2
	3	use strict;
	4	use warnings;
	5
a28e50e4	6	use Test::More;
e9ec68d6	7
	8	=pod
	9
	10	This is a test for a bug found by Purge on #moose:
	11	The code:
	12
	13	subtype Stuff
	14	=> as Object
	15	=> where { ... }
d03bd989	16
d03bd989	17	will break if the Object:: namespace exists. So the
e9ec68d6	18	solution is to quote 'Object', like so:
	19
	20	subtype Stuff
	21	=> as 'Object'
	22	=> where { ... }
	23
d03bd989	24	Moose 0.03 did this, now it doesn't, so all should
d03bd989	25	be well from now on.
e9ec68d6	26
	27	=cut
	28
	29	{ package Object::Test; }
	30
a28e50e4	31	{
	32	package Foo;
	33	::use_ok('Moose');
	34	}
	35
	36	done_testing;