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