Commits

Toby Inkster committed a1eff62

PERL_ASK_BACKEND should beat PERL_MM_USE_DEFAULT

Comments (0)

Files changed (1)

 			grep { use_package_optimistically($_)->DOES('Ask::API') }
 			$class->plugins;
 		
-		if ($ENV{AUTOMATED_TESTING} or $ENV{PERL_MM_USE_DEFAULT} or not @implementations) {
+		if (exists $ENV{PERL_ASK_BACKEND}) {
+			@implementations = use_module($ENV{PERL_ASK_BACKEND});
+		}
+		elsif ($ENV{AUTOMATED_TESTING} or $ENV{PERL_MM_USE_DEFAULT} or not @implementations) {
 			@implementations = use_module('Ask::Fallback');
 		}
-		elsif (exists $ENV{PERL_ASK_BACKEND}) {
-			@implementations = use_module($ENV{PERL_ASK_BACKEND});
-		}
 		
 		my @traits = @{ delete($args{traits}) // [] };
 		for my $i (@implementations) {