projects
/
gitmo/MooseX-ConfigFromFile.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
9cf24a84c743692ddccee0ba20e7e561317c8b5d
[gitmo/MooseX-ConfigFromFile.git]
/
t
/
02subclass.t
1
#!/usr/bin/env perl
2
use strict;
3
use Test::More;
4
use Test::Fatal;
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');
20
is(exception { B->new_with_config() }, undef, 'B->new_with_config lives');
21
22
done_testing();