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 | |
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 |
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; |