| Server IP : 213.136.93.164 / Your IP : 216.73.216.20 Web Server : Apache System : Linux m14200.contabo.net 5.14.0-611.54.1.el9_7.x86_64 #1 SMP PREEMPT_DYNAMIC Wed May 6 18:03:03 EDT 2026 x86_64 User : ki692510 ( 1047) PHP Version : 7.4.33 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : OFF | Sudo : OFF | Pkexec : OFF 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;