Commit | Line | Data |
8017308b |
1 | use strict; |
2 | use warnings; |
3 | use Test::More; |
4 | |
5 | BEGIN { |
6 | unless (eval { require MooseX::Role::Parameterized }) { |
7 | plan skip_all => 'This test needs MooseX::Role::Parameterized'; |
8 | } |
9 | } |
10 | |
11 | eval <<'EOF'; |
12 | package Role; |
13 | use MooseX::Role::Parameterized; |
14 | use MooseX::ClassAttribute; |
15 | role {}; |
16 | |
17 | package Class; |
18 | use Moose; |
19 | with 'Role'; |
20 | EOF |
21 | |
22 | ok((not $@), 'used MooseX::ClassAttribute in MooseX::Role::Parameterized role'); |
23 | diag $@ if $@; |
24 | |
25 | done_testing; |