Check anti-lint __END__ -X # nolint: check compile time $^W is zapped BEGIN { $^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 zapped use 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.pm use 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-- abc use 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.pm BEGIN {$^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-- abc BEGIN {$^W = 1} my ($a, $b) = (0,0); 1 if $a EQ $b ; 1; --FILE-- $^W = 1 ; require "./abc"; my $a ; chop $a ; EXPECT