?? 5nolint
字號:
Check anti-lint__END__-X# nolint: check compile time $^W is zappedBEGIN { $^W = 1 ;}$a = $b = 1 ;$a = 1 if $a EQ $b ;close STDIN ; print STDIN "abc" ;EXPECT########-X# nolint: check runtime $^W is zapped$^W = 1 ;close STDIN ; print STDIN "abc" ;EXPECT########-X# nolint: check runtime $^W is zapped{ $^W = 1 ; close STDIN ; print STDIN "abc" ;}EXPECT########-X# nolint: check "no warnings" is zappeduse warnings ;$a = $b = 1 ;$a = 1 if $a EQ $b ;close STDIN ; print STDIN "abc" ;EXPECT########-X# nolint: check "no warnings" is zapped{ use warnings ; close STDIN ; print STDIN "abc" ;}EXPECT########-Xw# nolint: check combination of -w and -X{ $^W = 1 ; close STDIN ; print STDIN "abc" ;}EXPECT########-X--FILE-- abc.pmuse warnings 'deprecated' ;my ($a, $b) = (0,0);1 if $a EQ $b ;1;--FILE-- use warnings 'uninitialized' ;use abc;my $a ; chop $a ;EXPECT########-X--FILE-- abcuse warnings 'deprecated' ;my ($a, $b) = (0,0);1 if $a EQ $b ;1;--FILE-- use warnings 'uninitialized' ;require "./abc";my $a ; chop $a ;EXPECT########-X--FILE-- abc.pmBEGIN {$^W = 1}my ($a, $b) = (0,0);1 if $a EQ $b ;1;--FILE-- $^W = 1 ;use abc;my $a ; chop $a ;EXPECT########-X--FILE-- abcBEGIN {$^W = 1}my ($a, $b) = (0,0);1 if $a EQ $b ;1;--FILE-- $^W = 1 ;require "./abc";my $a ; chop $a ;EXPECT########-X# Check scope of pragma with evaluse warnings;{ no warnings ; eval ' my $b ; chop $b ; '; print STDERR $@ ; my $b ; chop $b ;}EXPECT########-X# Check scope of pragma with evaluse warnings;{ no warnings ; eval q[ use warnings 'uninitialized' ; my $b ; chop $b ; ]; print STDERR $@; my $b ; chop $b ;}EXPECT########-X# Check scope of pragma with evalno warnings;{ use warnings 'uninitialized' ; eval ' my $b ; chop $b ; '; print STDERR $@ ; my $b ; chop $b ;}EXPECT########-X# Check scope of pragma with evalno warnings;{ use warnings 'uninitialized' ; eval ' no warnings ; my $b ; chop $b ; '; print STDERR $@ ; my $b ; chop $b ;}EXPECT########-X# Check scope of pragma with evaluse warnings;{ no warnings ; eval ' 1 if $a EQ $b ; '; print STDERR $@ ; 1 if $a EQ $b ;}EXPECT########-X# Check scope of pragma with evaluse warnings;{ no warnings ; eval q[ use warnings 'deprecated' ; 1 if $a EQ $b ; ]; print STDERR $@; 1 if $a EQ $b ;}EXPECT########-X# Check scope of pragma with evalno warnings;{ use warnings 'deprecated' ; eval ' 1 if $a EQ $b ; '; print STDERR $@; 1 if $a EQ $b ;}EXPECT########-X# Check scope of pragma with evalno warnings;{ use warnings 'deprecated' ; eval ' no warnings ; 1 if $a EQ $b ; '; print STDERR $@; 1 if $a EQ $b ;}EXPECT
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -