projects
/
gitmo/Moose.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
initialize the metaclass when calling ->does
[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;