📄 import.t
字号:
BEGIN { if( $ENV{PERL_CORE} ) { @INC = '../lib'; chdir 't'; }}print "1..1\n";sub ok{ my ($no, $ok) = @_ ; print "ok $no\n" if $ok ; print "not ok $no\n" unless $ok ;}# The :gzip tags are tested in external.t.eval "use IO::Zlib qw(foo bar)";ok(1, $@ =~ /^IO::Zlib::import: 'foo bar' is illegal /);
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -