Perl for Android で簡単に makeToast

SL4A(Scripting Layer for Android) の Perl for Android で print するだけで　makeToast できる Tie::Android::Toastを Github に上げました。

GitHub - hideo55/Tie-Android-Toast

使い方は以下の通り。

#!perl -w
use strict;
use Tie::Android::Toast;

tie local *STDOUT, 'Tie::Android::Toast';

foo();

sub foo {
    print 'Hello, World!'; # same as Android->new->makeToast('Hello, World!');
    print '...';
}

実用性は皆無。