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