Commit | Line | Data |
---|---|---|
7760bb42 | 1 | #!/usr/bin/env perl |
2 | use strict; | |
3 | use Test::More; | |
2ccaae6c | 4 | use Test::Fatal; |
7760bb42 | 5 | { |
6 | package A; | |
7 | use Moose; | |
8 | with qw(MooseX::ConfigFromFile); | |
9 | ||
10 | sub get_config_from_file { } | |
11 | } | |
12 | ||
13 | { | |
14 | package B; | |
15 | use Moose; | |
16 | extends qw(A); | |
17 | } | |
18 | ||
19 | ok(B->does('MooseX::ConfigFromFile'), 'B does ConfigFromFile'); | |
2ccaae6c | 20 | is(exception { B->new_with_config() }, undef, 'B->new_with_config lives'); |
7760bb42 | 21 | |
22 | done_testing(); |