File Coverage

blib/lib/Term/Completion/_readkey.pm

Criterion	Covered	Total	%
statement	18	21	85.7
branch	5	10	50.0
condition	3	9	33.3
subroutine	5	6	83.3
pod	3	3	100.0
total	34	49	69.3

package Term::Completion::_readkey;

use strict;
use Term::ReadKey qw(ReadMode ReadKey GetTerminalSize);

sub set_raw_tty
{
  my __PACKAGE__ $this = shift;
  ReadMode 4, $this->{in} if -t $this->{in};
  1;
}

sub reset_tty
{
  my __PACKAGE__ $this = shift;
  ReadMode 0, $this->{in} if -t $this->{in};
  1;
}

sub get_key
{
  my __PACKAGE__ $this = shift;
  ReadKey(0, $this->{in});
}

if($^O =~ /interix|win/i) {
  require Term::Completion::_termsize;
  *get_term_size = \&Term::Completion::_termsize::get_term_size;
} else {
  *get_term_size = sub {
    my __PACKAGE__ $this = shift;
    if(defined $this->{columns} and defined $this->{rows}) {
      return($this->{columns},  $this->{rows});
    }
    my ($c,$r) = GetTerminalSize($this->{out});
    $c ||= $Term::Completion::DEFAULTS{columns};
    $r ||= $Term::Completion::DEFAULTS{rows};
    return (
      (defined $this->{columns} ? $this->{columns} : $c),
      (defined $this->{rows}    ? $this->{rows}    : $r)
    );
  };
}

1;

__END__