Admin
dashboard
file manager
command
php exec
/
/
usr
/
share
/
perl5
/
vendor_perl
/
Term
/
Size
path:
go
upload
mkdir
name
type
size
perms
modified
actions
[parent directory]
Perl/
dir
-
0755
2026-08-19 08:10:08
delete
rename
Any.pm
file
771 B
0644
2012-04-20 14:09:09
edit
delete
rename
Any.pod
file
2,669 B
0644
2012-04-20 14:08:36
edit
delete
rename
Perl.pm
file
2,376 B
0644
2018-02-14 19:03:37
edit
delete
rename
editing: Any.pm
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;
save
cancel