Anyway it simple hello world in android api.#!/usr/bin/perl use strict; use warnings; use Android; my $droid = Android -> new(); my $Out = 'try data for ever looop'; $droid -> makeToast ('event invfo');# done $droid -> vibrate(); # done $droid -> dialogCreateAlert ('d.title','d.data'); $droid -> dialogSetPositiveButtonText ('da'); $droid -> dialogShow(); $Out = $droid -> dialogGetResponse() -> {'result'}; if ($Out -> {'which'} eq 'positive'){ $droid -> makeToast ('have positivee response');} $droid -> dialogCreateSpinnerProgress('test title','data'); $droid -> dialogShow(); sleep 3; $droid -> dialogDismiss();
In reply to perl 4 android & modules. by builat
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |