File Coverage

blib/lib/Ask/STDIO.pm

Criterion	Covered	Total	%
statement	15	39	38.4
branch	1	8	12.5
condition	1	6	16.6
subroutine	6	11	54.5
pod	0	6	0.0
total	23	70	32.8

use 5.008008;
use strict;
use warnings;

package Ask::STDIO;

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

use Moo;
use namespace::autoclean;

with 'Ask::API';

sub is_usable {
	my ( $self ) = @_;
	-t STDIN and -t STDOUT;
}

sub quality {
	( -t STDIN and -t STDOUT ) ? 80 : 20;
}

sub entry {
	my ( $self, %o ) = @_;
	$self->info( text => $o{text} ) if exists $o{text};

	my ( $line, $tio );

	if (
		$o{hide_text}
		and do { require POSIX; $tio = 'POSIX::Termios'->new }
		)
	{
		require POSIX;
		my $tio = POSIX::Termios->new;
		$tio->getattr( 0 );
		$tio->setlflag( $tio->getlflag & ~POSIX::ECHO() );
		$tio->setattr( 0 );
		chomp( $line =  );
		$tio->setlflag( $tio->getlflag | POSIX::ECHO() );
		$tio->setattr( 0 );
	} #/ if ( $o{hide_text} and...)
	else {
		chomp( $line =  );
	}

	return $line;
} #/ sub entry

sub info {
	my ( $self, %o ) = @_;
	print STDOUT "$o{text}\n";
}

sub warning {
	my ( $self, %o ) = @_;
	print STDERR "WARNING: $o{text}\n";
}

sub error {
	my ( $self, %o ) = @_;
	print STDERR "ERROR: $o{text}\n";
}

1;

__END__