[gitmo/Mouse.git] / t / 100_bugs / 001_subtype_quote_bug.t

#!/usr/bin/perl

use strict;
use warnings;

use Test::More tests => 1;

=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 { ... }

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

=cut

{ package Object::Test; }

package Foo;
::use_ok('Mouse');
Commit	Line	Data
4c98ebb0	1	#!/usr/bin/perl
	2
	3	use strict;
	4	use warnings;
	5
	6	use Test::More tests => 1;
	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 { ... }
	16
	17	will break if the Object:: namespace exists. So the
	18	solution is to quote 'Object', like so:
	19
	20	subtype Stuff
	21	=> as 'Object'
	22	=> where { ... }
	23
	24	Mouse 0.03 did this, now it doesn't, so all should
	25	be well from now on.
	26
	27	=cut
	28
	29	{ package Object::Test; }
	30
	31	package Foo;
	32	::use_ok('Mouse');