File Coverage

blib/lib/Term/Completion/_termsize.pm

Criterion	Covered	Total	%
statement	8	9	88.8
branch	3	6	50.0
condition			n/a
subroutine	2	2	100.0
pod	1	1	100.0
total	14	18	77.7

package Term::Completion::_termsize;

use strict;

my $get_term_size;

# try to load Term::Size
if( eval { require Term::Size; 1; } && !$@) {
  $get_term_size = sub {
    return Term::Size::chars($_[0]);
  };
}
# we try poor man's ioctl - stolen from perlfaq8
else {
  eval { require 'sys/ioctl.ph'; 1; };
  eval { require 'sys/termios.ph'; 1; };
  if(defined &TIOCGWINSZ) {
    $get_term_size = sub {
      my $winsize = '';
      unless(ioctl($_[0], &TIOCGWINSZ, $winsize) =~ /^0/) {
        return;
      }
      my ($row, $col, $xpixel, $ypixel) = unpack('S4', $winsize);
      return($col,$row);
    };
  } else {
    # we don't have a way to get the terminal size
    $get_term_size = sub {
      return (undef, undef);
    }
  }
}

sub get_term_size
{
  my __PACKAGE__ $this = shift;
  my ($c,$r);
  if(defined $get_term_size) {
    ($c,$r) = &$get_term_size($this->{out});
  } else {
    ($c,$r) = ($Term::Completion::DEFAULTS{columns},
               $Term::Completion::DEFAULTS{rows});
  }
  return (
    (defined $this->{columns} ? $this->{columns} : $c),
    (defined $this->{rows}    ? $this->{rows}    : $r)
  );
}

1;

__END__