File Coverage

blib/lib/Term/ReadLine/Tiny/readline.pm

Criterion	Covered	Total	%
statement	16	22	72.7
branch			n/a
condition			n/a
subroutine	5	7	71.4
pod	1	2	50.0
total	22	31	70.9

package Term::ReadLine::Tiny::readline;
=head1 NAME

Term::ReadLine::Tiny::readline - A non-OO package of Term::ReadLine::Tiny

=head1 VERSION

version 1.08

=head1 SYNOPSIS

	use Term::ReadLine::Tiny::readline;

	while ( defined($_ = readline("Prompt: ")) )
	{
		print "$_\n";
	}
	print "\n";

	$s = "";
	while ( defined($_ = readkey(1)) )
	{
		$s .= $_;
	}
	print "\n$s\n";

=cut
use strict;
use warnings;
use v5.10.1;
use Term::ReadLine::Tiny;


BEGIN
{
	require Exporter;
	our $VERSION     = '1.08';
	our @ISA         = qw(Exporter);
	our @EXPORT      = qw(readline readkey);
	our @EXPORT_OK   = qw();
}


=head1 Functions

=cut
=head2 readline([$prompt[, $default[, IN[, OUT]]]])

interactively gets an input line. Trailing newline is removed.

Returns C on C.

=cut
sub readline
{
	my ($prompt, $default, $IN, $OUT) = @_;
	my $term = Term::ReadLine::Tiny->new(undef, $IN, $OUT);
	return $term->readline($prompt, $default);
}

=head2 readkey([$echo[, IN[, OUT]]])

reads a key from input and echoes if I argument is C.

Returns C on C.

=cut
sub readkey
{
	my ($echo, $IN, $OUT) = @_;
	my $term = Term::ReadLine::Tiny->new(undef, $IN, $OUT);
	return $term->readkey($echo);
}


1;
__END__