1. Toby Inkster
  2. p5-ask

Commits

Toby Inkster  committed dc4f2d1

make Ask->detect aware of Ask::Tk

  • Participants
  • Parent commits e033c66
  • Branches default

Comments (0)

Files changed (1)

File lib/Ask.pm

View file
 		if (-t STDIN and -t STDOUT) {
 			return use_module("Ask::STDIO");
 		}
-		
+
+		if (eval { require Ask::Tk }) {
+			return 'Ask::Tk';
+		}
+
 		if (my $zenity = which('zenity')) {
 			$args->{zenity} //= $zenity;
 			return use_module("Ask::Zenity");