Term::Size::Any3pm
Retrieve terminal size
Usage
# the traditional wayuse Term::Size::Any qw( chars pixels );($columns, $rows) = chars *STDOUT{IO};($x, $y) = pixels;
Overview
This is a unified interface to retrieve terminal size. It loads one module of a list of known alternatives, each implementing some way to get the desired terminal information. This loaded module will actually do the job on behalf of "Term::Size::Any".
Thus, "Term::Size::Any" depends on the availability of one of these modules:
Term::Size (soon to be supported)Term::Size::PerlTerm::Size::ReadKey (soon to be supported)Term::Size::Win32
This release fallbacks to Term::Size::Win32 if running in Windows 32 systems. For other platforms, it uses the first of Term::Size::Perl, Term::Size or Term::Size::ReadKey which loads successfully. (To be honest, I disabled the fallback to Term::Size and Term::Size::ReadKey which are buggy by now.)
Functions
The traditional interface is by importing functions "chars" and "pixels" into the caller's space.
chars-
($columns, $rows) = chars($h);$columns = chars($h);"chars"returns the terminal size in units of characters corresponding to the given filehandle$h. If the argument is omitted,*STDIN{IO}is used. In scalar context, it returns the terminal width.
pixels-
($x, $y) = pixels($h);$x = pixels($h);"pixels"returns the terminal size in units of pixels corresponding to the given filehandle$h. If the argument is omitted,*STDIN{IO}is used. In scalar context, it returns the terminal width.Many systems with character-only terminals will return
"(0, 0)".
Copyright and license
Copyright (C) 2008-2012 by Adriano R. Ferreira
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
Releases
7 releases since Debian 7 (Wheezy); the text changed 2 times.