| Server IP : 88.99.149.37 / Your IP : 216.73.216.141 Web Server : nginx/1.31.2 System : Linux server-88-99-149-37 6.12.0-124.56.5.el10_1.x86_64 #1 SMP PREEMPT_DYNAMIC Fri May 15 06:12:08 EDT 2026 x86_64 User : muralimurth ( 1015) PHP Version : 8.4.23 Disable Function : exec,system,passthru,shell_exec,proc_close,proc_open,dl,popen,show_source,posix_kill,posix_mkfifo,posix_getpwuid,posix_setpgid,posix_setsid,posix_setuid,posix_setgid,posix_seteuid,posix_setegid,posix_uname MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : OFF | Sudo : ON | Pkexec : ON Directory : /usr/share/perl5/vendor_perl/Term/Size/ |
Upload File : |
package Term::Size::Any;
use strict;
use vars qw( $VERSION );
$VERSION = '0.002';
sub _require_any {
my $package;
if ( $^O eq 'MSWin32' ) {
require Term::Size::Win32;
$package = 'Term::Size::Win32';
} else {
#require Best;
#my @modules = qw( Term::Size::Perl Term::Size Term::Size::ReadKey );
#Best->import( @modules );
#$package = Best->which( @modules );
require Term::Size::Perl;
$package = 'Term::Size::Perl';
}
$package->import( qw( chars pixels ) ); # allows Term::Size::Any::chars
return $package;
}
sub import {
my $self = shift;
my $package = _require_any;
unshift @_, $package;
my $import_sub = $package->can('import');
goto &$import_sub;
}
1;