1use strict;
2use warnings FATAL => "all";
3
4require Role::Tiny;
5
6eval sprintf( <<'EOCDECL', ($main::OO) x 1);
7{
8    package #
9      Must::Fail;
10
11    use MooX::ConfigFromFile;
12
13    sub new { bless {}, shift }
14}
15
16{
17    package #
18      Already::There;
19
20    use %s;
21
22    sub _initialize_from_config {}
23
24    use MooX::ConfigFromFile;
25}
26EOCDECL
27
28note $main::OO;
29
30my $mf = Must::Fail->new;
31ok(!$mf->can("_initialize_from_config"), "Failed to apply MooX::ConfigFromFile::Role");
32
33my $ar = Already::There->new;
34ok(!Role::Tiny::does_role($ar, "MooX::ConfigFromFile::Role"), "Skipped applying MooX::ConfigFromFile::Role");
35