Permalink
Find file
Fetching contributors…
Cannot retrieve contributors at this time
18 lines (10 sloc) 368 Bytes
use strict;
use warnings;
require "/sdcard/ase/scripts/MyTools.pl";
use Android;
my $d = Android->new();
# Currently this script shuts down the emulator
# result is JSON::PP::Boolean
#say($d->checkAirplaneMode->{result}); # is false or true
#say($d->toggleAirplaneMode->{result}); # returns the new mode (false or true)
#say $d->checkAirplaneMode->{result};