Perl-Lint

 view release on metacpan or  search on metacpan

t/Policy/Variables/require_localized_punctuation_vars.t  view on Meta::CPAN

# DO NOT EDIT!!! This test suite generated by t/Policy/Variables/require_localized_punctuation_vars.PL

use strict;
use warnings;
use Perl::Lint::Policy::Variables::RequireLocalizedPunctuationVars;
use t::Policy::Util qw/fetch_violations/;
use Test::Base::Less;

my $class_name = 'Variables::RequireLocalizedPunctuationVars';

filters {
    params => [qw/eval/], # TODO wrong!
};

for my $block (blocks) {
    my $violations = fetch_violations($class_name, $block->input, $block->params);
    is scalar @$violations, $block->failures, $block->dscr;
}

done_testing;

__DATA__

===
--- dscr: Named magic variables, special case passes
--- failures: 0
--- params:
--- input
local ($_, $RS) = ();
local $SIG{__DIE__} = sub { print "AAAAAAARRRRRGGGGHHHHH....\n"; };
$_ = 1;
$ARG = 1;
@_ = (1, 2, 3);

===
--- dscr: Named magic variables, pass local
--- failures: 0
--- params:
--- input
local @+ = ();
local $LAST_MATCH_END = ();
local @- = ();
local @LAST_MATCH_START = ();
local @ARGV = ();
local @F = ();
local @INC = ();
local @_ = ();
local @ARG = ();
local %OVERLOAD = ();
local %+ = ();
local %LAST_MATCH_END = ();
local %- = ();
local %LAST_MATCH_START = ();
local %! = ();
local %OS_ERROR = ();
local %ERRNO = ();
local %^H = ();
local %INC = ();
local %ENV = ();
local %SIG = ();
local $a = ();
local $b = ();
local $_ = ();
local $ARG = ();
local $& = ();
local $MATCH = ();
local $` = ();
local $PREMATCH = ();
local $' = ();
local $POSTMATCH = ();
local $+ = ();
local $LAST_PAREN_MATCH = ();
local $* = ();
local $MULTILINE_MATCHING = ();
local $. = ();
local $INPUT_LINE_NUMBER = ();
local $NR = ();
local $/ = ();
local $INPUT_RECORD_SEPARATOR = ();
local $RS = ();
local $| = ();
local $OUTPUT_AUTO_FLUSH = ();
local $, = ();
local $OUTPUT_FIELD_SEPARATOR = ();
local $OFS = ();
local $\ = ();
local $OUTPUT_RECORD_SEPARATOR = ();
local $ORS = ();
local $" = ();
local $LIST_SEPARATOR = ();
local $; = ();
local $SUBSCRIPT_SEPARATOR = ();
local $SUBSEP = ();
local $# = ();
local $OFMT = ();
local $% = ();
local $FORMAT_PAGE_NUMBER = ();
local $= = ();
local $FORMAT_LINES_PER_PAGE = ();
local $- = ();
local $FORMAT_LINES_LEFT = ();
local $~ = ();
local $FORMAT_NAME = ();
local $^ = ();

t/Policy/Variables/require_localized_punctuation_vars.t  view on Meta::CPAN

local $^ENCODING = ();
local $^F = ();
local $SYSTEM_FD_MAX = ();
local $^GLOBAL_PHASE = ();
local $^H = ();
local $^I = ();
local $INPLACE_EDIT = ();
local $^L = ();
local $FORMAT_FORMFEED = ();
local $^LAST_FH = ();
local $^M = ();
local $^MATCH = ();
local $^N = ();
local $LAST_SUBMATCH_RESULT = ();
local $^O = ();
local $OSNAME = ();
local $^OPEN = ();
local $^P = ();
local $PERLDB = ();
local $^PREMATCH = ();
local $^POSTMATCH = ();
local $^R = ();
local $LAST_REGEXP_CODE_RESULT = ();
local $^RE_DEBUG_FLAGS = ();
local $^RE_TRIE_MAXBUF = ();
local $^S = ();
local $EXCEPTIONS_BEING_CAUGHT = ();
local $^T = ();
local $BASETIME = ();
local $^TAINT = ();
local $^UNICODE = ();
local $^UTF8CACHE = ();
local $^UTF8LOCALE = ();
local $^V = ();
local $PERL_VERSION = ();
local $^W = ();
local $WARNING = ();
local $^WARNING_BITS = ();
local $^WIDE_SYSTEM_CALLS = ();
local $^WIN32_SLOPPY_STAT = ();
local $^X = ();
local $EXECUTABLE_NAME = ();
local $ARGV = ();
local *ARGV = ();
local *_ = ();
local *ARGVOUT = ();
local *DATA = ();
local *STDIN = ();
local *STDOUT = ();
local *STDERR = ();

===
--- dscr: Named magic variables, pass local()
--- failures: 0
--- params:
--- input
local (@+) = ();
local ($LAST_MATCH_END) = ();
local (@-) = ();
local (@LAST_MATCH_START) = ();
local (@ARGV) = ();
local (@F) = ();
local (@INC) = ();
local (@_) = ();
local (@ARG) = ();
local (%OVERLOAD) = ();
local (%+) = ();
local (%LAST_MATCH_END) = ();
local (%-) = ();
local (%LAST_MATCH_START) = ();
local (%!) = ();
local (%OS_ERROR) = ();
local (%ERRNO) = ();
local (%^H) = ();
local (%INC) = ();
local (%ENV) = ();
local (%SIG) = ();
local ($a) = ();
local ($b) = ();
local ($_) = ();
local ($ARG) = ();
local ($&) = ();
local ($MATCH) = ();
local ($`) = ();
local ($PREMATCH) = ();
local ($') = ();
local ($POSTMATCH) = ();
local ($+) = ();
local ($LAST_PAREN_MATCH) = ();
local ($*) = ();
local ($MULTILINE_MATCHING) = ();
local ($.) = ();
local ($INPUT_LINE_NUMBER) = ();
local ($NR) = ();
local ($/) = ();
local ($INPUT_RECORD_SEPARATOR) = ();
local ($RS) = ();
local ($|) = ();
local ($OUTPUT_AUTO_FLUSH) = ();
local ($,) = ();
local ($OUTPUT_FIELD_SEPARATOR) = ();
local ($OFS) = ();
local ($\) = ();
local ($OUTPUT_RECORD_SEPARATOR) = ();
local ($ORS) = ();
local ($") = ();
local ($LIST_SEPARATOR) = ();
local ($;) = ();
local ($SUBSCRIPT_SEPARATOR) = ();
local ($SUBSEP) = ();
local ($#) = ();
local ($OFMT) = ();
local ($%) = ();
local ($FORMAT_PAGE_NUMBER) = ();
local ($=) = ();
local ($FORMAT_LINES_PER_PAGE) = ();
local ($-) = ();
local ($FORMAT_LINES_LEFT) = ();
local ($~) = ();
local ($FORMAT_NAME) = ();
local ($^) = ();

t/Policy/Variables/require_localized_punctuation_vars.t  view on Meta::CPAN

local ($^ENCODING) = ();
local ($^F) = ();
local ($SYSTEM_FD_MAX) = ();
local ($^GLOBAL_PHASE) = ();
local ($^H) = ();
local ($^I) = ();
local ($INPLACE_EDIT) = ();
local ($^L) = ();
local ($FORMAT_FORMFEED) = ();
local ($^LAST_FH) = ();
local ($^M) = ();
local ($^MATCH) = ();
local ($^N) = ();
local ($LAST_SUBMATCH_RESULT) = ();
local ($^O) = ();
local ($OSNAME) = ();
local ($^OPEN) = ();
local ($^P) = ();
local ($PERLDB) = ();
local ($^PREMATCH) = ();
local ($^POSTMATCH) = ();
local ($^R) = ();
local ($LAST_REGEXP_CODE_RESULT) = ();
local ($^RE_DEBUG_FLAGS) = ();
local ($^RE_TRIE_MAXBUF) = ();
local ($^S) = ();
local ($EXCEPTIONS_BEING_CAUGHT) = ();
local ($^T) = ();
local ($BASETIME) = ();
local ($^TAINT) = ();
local ($^UNICODE) = ();
local ($^UTF8CACHE) = ();
local ($^UTF8LOCALE) = ();
local ($^V) = ();
local ($PERL_VERSION) = ();
local ($^W) = ();
local ($WARNING) = ();
local ($^WARNING_BITS) = ();
local ($^WIDE_SYSTEM_CALLS) = ();
local ($^WIN32_SLOPPY_STAT) = ();
local ($^X) = ();
local ($EXECUTABLE_NAME) = ();
local ($ARGV) = ();
local (*ARGV) = ();
local (*_) = ();
local (*ARGVOUT) = ();
local (*DATA) = ();
local (*STDIN) = ();
local (*STDOUT) = ();
local (*STDERR) = ();

===
--- dscr: Named magic variables, pass (local)
--- failures: 0
--- params:
--- input
(local @+) = ();
(local $LAST_MATCH_END) = ();
(local @-) = ();
(local @LAST_MATCH_START) = ();
(local @ARGV) = ();
(local @F) = ();
(local @INC) = ();
(local @_) = ();
(local @ARG) = ();
(local %OVERLOAD) = ();
(local %+) = ();
(local %LAST_MATCH_END) = ();
(local %-) = ();
(local %LAST_MATCH_START) = ();
(local %!) = ();
(local %OS_ERROR) = ();
(local %ERRNO) = ();
(local %^H) = ();
(local %INC) = ();
(local %ENV) = ();
(local %SIG) = ();
(local $a) = ();
(local $b) = ();
(local $_) = ();
(local $ARG) = ();
(local $&) = ();
(local $MATCH) = ();
(local $`) = ();
(local $PREMATCH) = ();
(local $') = ();
(local $POSTMATCH) = ();
(local $+) = ();
(local $LAST_PAREN_MATCH) = ();
(local $*) = ();
(local $MULTILINE_MATCHING) = ();
(local $.) = ();
(local $INPUT_LINE_NUMBER) = ();
(local $NR) = ();
(local $/) = ();
(local $INPUT_RECORD_SEPARATOR) = ();
(local $RS) = ();
(local $|) = ();
(local $OUTPUT_AUTO_FLUSH) = ();
(local $,) = ();
(local $OUTPUT_FIELD_SEPARATOR) = ();
(local $OFS) = ();
(local $\) = ();
(local $OUTPUT_RECORD_SEPARATOR) = ();
(local $ORS) = ();
(local $") = ();
(local $LIST_SEPARATOR) = ();
(local $;) = ();
(local $SUBSCRIPT_SEPARATOR) = ();
(local $SUBSEP) = ();
(local $#) = ();
(local $OFMT) = ();
(local $%) = ();
(local $FORMAT_PAGE_NUMBER) = ();
(local $=) = ();
(local $FORMAT_LINES_PER_PAGE) = ();
(local $-) = ();
(local $FORMAT_LINES_LEFT) = ();
(local $~) = ();
(local $FORMAT_NAME) = ();
(local $^) = ();

t/Policy/Variables/require_localized_punctuation_vars.t  view on Meta::CPAN

(local $^ENCODING) = ();
(local $^F) = ();
(local $SYSTEM_FD_MAX) = ();
(local $^GLOBAL_PHASE) = ();
(local $^H) = ();
(local $^I) = ();
(local $INPLACE_EDIT) = ();
(local $^L) = ();
(local $FORMAT_FORMFEED) = ();
(local $^LAST_FH) = ();
(local $^M) = ();
(local $^MATCH) = ();
(local $^N) = ();
(local $LAST_SUBMATCH_RESULT) = ();
(local $^O) = ();
(local $OSNAME) = ();
(local $^OPEN) = ();
(local $^P) = ();
(local $PERLDB) = ();
(local $^PREMATCH) = ();
(local $^POSTMATCH) = ();
(local $^R) = ();
(local $LAST_REGEXP_CODE_RESULT) = ();
(local $^RE_DEBUG_FLAGS) = ();
(local $^RE_TRIE_MAXBUF) = ();
(local $^S) = ();
(local $EXCEPTIONS_BEING_CAUGHT) = ();
(local $^T) = ();
(local $BASETIME) = ();
(local $^TAINT) = ();
(local $^UNICODE) = ();
(local $^UTF8CACHE) = ();
(local $^UTF8LOCALE) = ();
(local $^V) = ();
(local $PERL_VERSION) = ();
(local $^W) = ();
(local $WARNING) = ();
(local $^WARNING_BITS) = ();
(local $^WIDE_SYSTEM_CALLS) = ();
(local $^WIN32_SLOPPY_STAT) = ();
(local $^X) = ();
(local $EXECUTABLE_NAME) = ();
(local $ARGV) = ();
(local *ARGV) = ();
(local *_) = ();
(local *ARGVOUT) = ();
(local *DATA) = ();
(local *STDIN) = ();
(local *STDOUT) = ();
(local *STDERR) = ();

===
--- dscr: Named magic variables, pass = (local) =
--- failures: 0
--- params:
--- input
@foo = (local @+) = ();
@foo = (local $LAST_MATCH_END) = ();
@foo = (local @-) = ();
@foo = (local @LAST_MATCH_START) = ();
@foo = (local @ARGV) = ();
@foo = (local @F) = ();
@foo = (local @INC) = ();
@foo = (local @_) = ();
@foo = (local @ARG) = ();
@foo = (local %OVERLOAD) = ();
@foo = (local %+) = ();
@foo = (local %LAST_MATCH_END) = ();
@foo = (local %-) = ();
@foo = (local %LAST_MATCH_START) = ();
@foo = (local %!) = ();
@foo = (local %OS_ERROR) = ();
@foo = (local %ERRNO) = ();
@foo = (local %^H) = ();
@foo = (local %INC) = ();
@foo = (local %ENV) = ();
@foo = (local %SIG) = ();
@foo = (local $a) = ();
@foo = (local $b) = ();
@foo = (local $_) = ();
@foo = (local $ARG) = ();
@foo = (local $&) = ();
@foo = (local $MATCH) = ();
@foo = (local $`) = ();
@foo = (local $PREMATCH) = ();
@foo = (local $') = ();
@foo = (local $POSTMATCH) = ();
@foo = (local $+) = ();
@foo = (local $LAST_PAREN_MATCH) = ();
@foo = (local $*) = ();
@foo = (local $MULTILINE_MATCHING) = ();
@foo = (local $.) = ();
@foo = (local $INPUT_LINE_NUMBER) = ();
@foo = (local $NR) = ();
@foo = (local $/) = ();
@foo = (local $INPUT_RECORD_SEPARATOR) = ();
@foo = (local $RS) = ();
@foo = (local $|) = ();
@foo = (local $OUTPUT_AUTO_FLUSH) = ();
@foo = (local $,) = ();
@foo = (local $OUTPUT_FIELD_SEPARATOR) = ();
@foo = (local $OFS) = ();
@foo = (local $\) = ();
@foo = (local $OUTPUT_RECORD_SEPARATOR) = ();
@foo = (local $ORS) = ();
@foo = (local $") = ();
@foo = (local $LIST_SEPARATOR) = ();
@foo = (local $;) = ();
@foo = (local $SUBSCRIPT_SEPARATOR) = ();
@foo = (local $SUBSEP) = ();
@foo = (local $#) = ();
@foo = (local $OFMT) = ();
@foo = (local $%) = ();
@foo = (local $FORMAT_PAGE_NUMBER) = ();
@foo = (local $=) = ();
@foo = (local $FORMAT_LINES_PER_PAGE) = ();
@foo = (local $-) = ();
@foo = (local $FORMAT_LINES_LEFT) = ();
@foo = (local $~) = ();
@foo = (local $FORMAT_NAME) = ();
@foo = (local $^) = ();

t/Policy/Variables/require_localized_punctuation_vars.t  view on Meta::CPAN

@foo = (local $^POSTMATCH) = ();
@foo = (local $^R) = ();
@foo = (local $LAST_REGEXP_CODE_RESULT) = ();
@foo = (local $^RE_DEBUG_FLAGS) = ();
@foo = (local $^RE_TRIE_MAXBUF) = ();
@foo = (local $^S) = ();
@foo = (local $EXCEPTIONS_BEING_CAUGHT) = ();
@foo = (local $^T) = ();
@foo = (local $BASETIME) = ();
@foo = (local $^TAINT) = ();
@foo = (local $^UNICODE) = ();
@foo = (local $^UTF8CACHE) = ();
@foo = (local $^UTF8LOCALE) = ();
@foo = (local $^V) = ();
@foo = (local $PERL_VERSION) = ();
@foo = (local $^W) = ();
@foo = (local $WARNING) = ();
@foo = (local $^WARNING_BITS) = ();
@foo = (local $^WIDE_SYSTEM_CALLS) = ();
@foo = (local $^WIN32_SLOPPY_STAT) = ();
@foo = (local $^X) = ();
@foo = (local $EXECUTABLE_NAME) = ();
@foo = (local $ARGV) = ();
@foo = (local *ARGV) = ();
@foo = (local *_) = ();
@foo = (local *ARGVOUT) = ();
@foo = (local *DATA) = ();
@foo = (local *STDIN) = ();
@foo = (local *STDOUT) = ();
@foo = (local *STDERR) = ();

===
--- dscr: Named magic variables, pass local dereferenced
--- failures: 0
--- params:
--- input
local $+[0] = 'bar';
local $-[0] = 'bar';
local $LAST_MATCH_START[0] = 'bar';
local $ARGV[0] = 'bar';
local $F[0] = 'bar';
local $INC[0] = 'bar';
local $_[0] = 'bar';
local $ARG[0] = 'bar';
local $OVERLOAD{foo} = 'bar';
local $+{foo} = 'bar';
local $LAST_MATCH_END{foo} = 'bar';
local $-{foo} = 'bar';
local $LAST_MATCH_START{foo} = 'bar';
local $!{foo} = 'bar';
local $OS_ERROR{foo} = 'bar';
local $ERRNO{foo} = 'bar';
local $^H{foo} = 'bar';
local $INC{foo} = 'bar';
local $ENV{foo} = 'bar';
local $SIG{foo} = 'bar';

===
--- dscr: Named magic variables, pass non-local but in exception list
--- failures: 0
--- params: {require_localized_punctuation_vars =>  {allow => '@+ $LAST_MATCH_END @- @LAST_MATCH_START @ARGV @F @INC @_ @ARG %OVERLOAD %+ %LAST_MATCH_END %- %LAST_MATCH_START %! %OS_ERROR %ERRNO %^H %INC %ENV %SIG $a $b $_ $ARG $& $MATCH $` $PREMATCH...
--- input
@+ = ();
$LAST_MATCH_END = ();
@- = ();
@LAST_MATCH_START = ();
@ARGV = ();
@F = ();
@INC = ();
@ARG = ();
%OVERLOAD = ();
%+ = ();
%LAST_MATCH_END = ();
%- = ();
%LAST_MATCH_START = ();
%! = ();
%OS_ERROR = ();
%ERRNO = ();
%^H = ();
%INC = ();
%ENV = ();
%SIG = ();
$a = ();
$b = ();
$& = ();
$MATCH = ();
$` = ();
$PREMATCH = ();
$' = ();
$POSTMATCH = ();
$+ = ();
$LAST_PAREN_MATCH = ();
$* = ();
$MULTILINE_MATCHING = ();
$. = ();
$INPUT_LINE_NUMBER = ();
$NR = ();
$/ = ();
$INPUT_RECORD_SEPARATOR = ();
$RS = ();
$| = ();
$OUTPUT_AUTO_FLUSH = ();
$, = ();
$OUTPUT_FIELD_SEPARATOR = ();
$OFS = ();
$\ = ();
$OUTPUT_RECORD_SEPARATOR = ();
$ORS = ();
$" = ();
$LIST_SEPARATOR = ();
$; = ();
$SUBSCRIPT_SEPARATOR = ();
$SUBSEP = ();
$# = ();
$OFMT = ();
$% = ();
$FORMAT_PAGE_NUMBER = ();
$= = ();
$FORMAT_LINES_PER_PAGE = ();
$- = ();
$FORMAT_LINES_LEFT = ();