Uname : Linux serv1.rebootns.com 5.14.0-570.62.1.el9_6.x86_64 #1 SMP PREEMPT_DYNAMIC Tue Nov 11 10:10:59 EST 2025 x86_64
Soft : LiteSpeed
Ip : 139.99.125.122
Port : 443
~
/
usr
/
share
/
perl5
/
vendor_perl
/
Term
/
Size
[ HOME ]
Exec
Submit
File Name : 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;
Back
Folder Name
Submit
File Name
File Content
Submit
Name
Type
Size
Permission
Last Modified
Actions
.
dir
-
0755
2025-11-16 07:24:25
..
dir
-
0755
2025-11-16 07:24:25
Perl
dir
-
0755
2025-11-16 07:24:25
Any.pm
file
771 B
0644
2012-04-20 02:09:09
Any.pod
file
2.61 KB
0644
2012-04-20 02:08:36
Perl.pm
file
2.32 KB
0644
2018-02-14 07:03:37