projects
/
gitmo/Mouse.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
Mouse::Meta::Attribute->new warns about unknown, or misspelled, arguments (compat...
[gitmo/Mouse.git]
/
t
/
001_mouse
/
064-class-c3.t
1
#!perl
2
use strict;
3
use warnings;
4
5
BEGIN{
6
eval{ require MRO::Compat };
7
eval{ require mro };
8
}
9
10
use Test::More defined(&mro::get_linear_isa)
11
? (tests => 1)
12
: (skip_all => 'This test requires mro');
13
14
{
15
package Base;
16
use Mouse;
17
18
package Left;
19
use Mouse;
20
extends 'Base';
21
22
package Right;
23
use Mouse;
24
extends 'Base';
25
26
package Diamond;
27
use Mouse;
28
use mro 'c3';
29
30
extends qw(Left Right);
31
32
}
33
34
is_deeply([Diamond->meta->linearized_isa], [qw(Diamond Left Right Base Mouse::Object)]);