File Coverage

blib/lib/Ask/Zenity.pm

Criterion	Covered	Total	%
statement	24	69	34.7
branch	0	22	0.0
condition			n/a
subroutine	9	21	42.8
pod	0	10	0.0
total	33	122	27.0

use 5.008008;
use strict;
use warnings;

package Ask::Zenity;

our $AUTHORITY = 'cpan:TOBYINK';
our $VERSION   = '0.014';

use Moo;
use File::Which qw(which);
use System::Command;
use Path::Tiny qw( path );
use namespace::autoclean;

has zenity_path => (
	is      => 'ro',
	default => sub { which( 'zenity' ) || '/usr/bin/zenity' },
);

has system_wrapper => (
	is      => 'ro',
	default => sub { 'System::Command' },
);

with 'Ask::API';

sub is_usable {
	my ( $self ) = @_;
	return unless !!$ENV{'DISPLAY'};
	return unless -x $self->zenity_path;
	return 1;
}

sub quality {
	return 40;
}

sub _optionize {
	my $opt = shift;
	$opt =~ s/_/-/g;
	return "--$opt";
}

sub _zenity {
	my ( $self, $cmd, %o ) = @_;
	my $zen = $self->system_wrapper->new(
		$self->zenity_path,
		_optionize( $cmd ),
		map sprintf( '%s="%s"', _optionize( $_ ), $o{$_} ), keys %o,
	);

	# warn join q[ ], $zen->cmdline;
	return $zen;
} #/ sub _zenity

sub entry {
	my $self = shift;
	my $text = readline( $self->_zenity( entry => @_ )->stdout );
	chomp $text;
	return $text;
}

sub info {
	my $self = shift;
	$self->_zenity( info => @_ )->close;
}

sub warning {
	my $self = shift;
	$self->_zenity( warning => @_ )->close;
}

sub error {
	my $self = shift;
	$self->_zenity( error => @_ )->close;
}

sub question {
	my $self = shift;
	my $zen  = $self->_zenity( error => @_ );
	$zen->close;
	return not $zen->exit;
}

sub file_selection {
	my $self = shift;
	my $text = readline( $self->_zenity( file_selection => @_ )->stdout );
	chomp $text;
	my @files = map path( $_ ), split m#[|]#, $text;
	@files == 1 ? $files[0] : @files;
}

sub single_choice {
	my ( $self, %o ) = @_;
	$o{title} = 'Single choice' unless exists $o{title};
	$o{text}  = 'Choose one.'   unless exists $o{text};
	my ( $c ) = $self->_choice( radiolist => 1, %o );
	return $c;
}

sub multiple_choice {
	my ( $self, %o ) = @_;
	$o{title} = 'Multiple choice' unless exists $o{title};
	$o{text}  = ''                unless exists $o{text};
	return $self->_choice( multiple => 1, checklist => 1, %o );
}

sub _choice {
	my ( $self, %o ) = @_;
	my $subsequent;
	my $zen = $self->system_wrapper->new(
		$self->zenity_path,
		'--list',
		( $o{radiolist} ? '--radiolist' : () ),
		( $o{checklist} ? '--checklist' : () ),
		( $o{multiple}  ? '--multiple'  : () ),
		'--column=Select',
		'--column=Code',
		'--column=Choice',
		'--hide-column=2',
		'--text', $o{text},
		map { ( $subsequent++ ? 'FALSE' : 'TRUE' ), @$_ } @{ $o{choices} },
	);
	chomp( my $line = readline( $zen->stdout ) );
	split m{\|}, $line;
} #/ sub _choice

1;

__END__