Skip Alien-Ditaa
[gitmo/Moose.git] / t / bugs / subtype_quote_bug.t
1 #!/usr/bin/perl
2
3 use strict;
4 use warnings;
5
6 use Test::More;
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 Moose 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 {
32     package Foo;
33     ::use_ok('Moose');
34 }
35
36 done_testing;