File Coverage

blib/lib/Termux/API.pm

Criterion	Covered	Total	%
statement	9	74	12.1
branch	0	4	0.0
condition	0	10	0.0
subroutine	3	34	8.8
pod	31	31	100.0
total	43	153	28.1

package Termux::API;
use strict;
use warnings;
use JSON;

our $VERSION = 0.02;

sub new {
	return bless( {
		j => JSON->new
	}, $_[0] );
}

sub command {
	my $command = qx($_[1]);
	return eval { $_[0]->{j}->decode($command) } || $command;
}

sub battery_status {
	$_[0]->command('termux-battery-status');
}

sub brightness {
	$_[0]->command("termux-brightness $_[1]");
}

sub camera_info {
	$_[0]->command('termux-camera-info');
}

sub clipboard_get {
	$_[0]->command('termux-clipboard-get');
}

sub clipboard_set {
	$_[0]->command("termux-clipboard-set $_[1]");
}

sub contact_list {
	$_[0]->command('termux-contact-list');
}

sub dialog {
	my ( $self, $type, %options ) = @_;
	my $command = sprintf( 'termux-dialog %s %s',
		$type,
		join( ' ', map( { $_ . ' "' . $options{$_} . '"'; } keys %options ) )
	);
	$_[0]->command($command);
}

sub download {
	$_[0]->command("termux-download $_[1]");
}

sub fingerprint {
	$_[0]->command('termux-fingerprint');
}

sub infrared_frequencies {
	$_[0]->command('termux-infrared-frequencies');
}

sub infrared_transmit {
	$_[0]->command("termux-infrared-transmit -f $_[1]");
}

sub location {
	my ( $self, $provide, $request ) = @_;
	$provide ||= 'gps';
	$request ||= 'once';
	$_[0]->command("termux-location -p $provide -r $request");
}

sub microphone {
	my ( $self, %options ) = @_;
	my $command = sprintf( 'termux-microphone-record %s',
		join( ' ', map( { $_ . ' "' . $options{$_} . '"'; } keys %options ) )
	);
	$_[0]->command($command);
}

sub notification {
	my ( $self, %options ) = @_;
	my $command = sprintf( 'termux-notification %s',
		join( ' ', map( { $_ . ' "' . $options{$_} . '"'; } keys %options ) )
	);
	$_[0]->command($command);
}

sub notification_remove {
	$_[0]->command("termux-notification-remove $_[1]");
}

sub sensor {
	my ( $self, %options ) = @_;
	$options{'-n'} = 1;
	my $command = sprintf( 'termux-sensor %s',
		join( ' ', map( { $_ . ' "' . $options{$_} . '"'; } keys %options ) )
	);
	$_[0]->command($command);
}

sub telephony_call {
	$_[0]->command("termux-telephony-call $_[1]");
}

sub telephony_cellinfo {
	$_[0]->command('termux-telephony-cellinfo');
}

sub telephony_device {
	$_[0]->command('termux-telephony-deviceinfo');
}

sub toast {
	my ( $self, $text, %options ) = @_;
	my $command = sprintf(
		'termux-toast %s "%s"',
		join( ' ', map( { $_ . ' "' . $options{$_} . '"'; } keys %options ) ),
		$text
	);
	$_[0]->command($command);
}

sub torch {
	$_[0]->command("termux-torch $_[1]");
}

sub tts_engines {
	$_[0]->command('termux-tts-engines');
}

sub tts_speak {
	my ( $self, $text, %options ) = @_;
	my $command = sprintf(
		'termux-tts-speak %s "%s"',
		join( ' ', map( { $_ . ' "' . $options{$_} . '"'; } keys %options ) ),
		$text
	);
	$_[0]->command($command);
}

sub vibrate {
	my ( $self, %options ) = @_;
	my $command = sprintf( 'termux-vibrate %s',
		join( ' ', map( { $_ . ' "' . $options{$_} . '"'; } keys %options ) )
	);
	$_[0]->command($command);
}

sub volume {
	my ( $self, $stream, $volume ) = @_;
	my $command = 'termux-volume';
	if ( $stream and $volume ) {
		$command = sprintf( '%s %s %s', $command, $stream, $volume );
	}
	$self->command($command);
}

sub wallpaper {
	my ( $self, %options ) = @_;
	my $command = sprintf( 'termux-wallpaper %s',
		join( ' ', map( { $_ . ' "' . $options{$_} . '"'; } keys %options ) )
	);
	$self->command($command);
}

sub wifi {
	$_[0]->command('termux-wifi-connectioninfo');
}

sub wifi_enable {
	my $enable = $_[1] ? 'true' : 'false';
	$_[0]->command("termux-wifi-enable $enable");
}

sub wifi_scan {
	$_[0]->command('termux-wifi-scaninfo');
}

1;

__END__