?? require.t
字號:
#!/usr/bin/perl -w# check that simple requiring BigInt worksuse strict;use Test;BEGIN { $| = 1; # to locate the testing files my $location = $0; $location =~ s/require.t//i; if ($ENV{PERL_CORE}) { # testing with the core distribution @INC = qw(../t/lib); } unshift @INC, qw(../lib); # to locate the modules if (-d 't') { chdir 't'; require File::Spec; unshift @INC, File::Spec->catdir(File::Spec->updir, $location); } else { unshift @INC, $location; } print "# INC = @INC\n"; plan tests => 1; } my ($x);require Math::BigInt; $x = Math::BigInt->new(1); ++$x;ok ($x||'undef',2);# all tests done
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -