File Coverage

blib/lib/Term/Info.pm

Criterion	Covered	Total	%
statement	9	10	90.0
branch	1	2	50.0
condition			n/a
subroutine	2	2	100.0
pod	0	1	0.0
total	12	15	80.0

# Install this in your perl source or installation tree as lib/Term/Info.pm

# Call using the following syntax:
#   $clear = Tput("clear");
#   print $clear;
#   print Tput("cup",$row,$col);
#
# Note that the tput command is required to be in your path somewhere.

package Term::Info;
require 5.000;
require Exporter;
use Carp;

@ISA = qw(Exporter);
@EXPORT = qw(&Tput);

%cachetput = ();

sub Tput  {
	my(@params) = @_;
	my($cmd) = "tput";
	foreach (@params)
	{
		$cmd .= " \"\Q$_\E\"";
	}
	if( defined($cachetput{$cmd}) )
		{ $cachetput{$cmd} }
	else
		{ $cachetput{$cmd} = `$cmd` }
}


1;