✏️ 正在编辑: Any.pm
路径:
/usr/share/perl5/vendor_perl/Term/Size/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;
💾 保存文件
← 返回文件管理器