view release on metacpan or  search on metacpan

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

($^UNICODE) = ();
($^UTF8CACHE) = ();
($^UTF8LOCALE) = ();
($^V) = ();
($PERL_VERSION) = ();
($^W) = ();
($WARNING) = ();
($^WARNING_BITS) = ();
($^WIDE_SYSTEM_CALLS) = ();
($^WIN32_SLOPPY_STAT) = ();
($^X) = ();
($EXECUTABLE_NAME) = ();
($ARGV) = ();
(*ARGV) = ();
(*_) = ();
(*ARGVOUT) = ();
(*DATA) = ();
(*STDIN) = ();
(*STDOUT) = ();
(*STDERR) = ();

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

===
--- dscr: Allowing a variable with a particular sigil doesn't allow other variables with the same name but different sigils
--- failures: 1
--- params: {require_localized_punctuation_vars => {allow => '$ARGV'}}
--- input
@ARGV = (1, 2, 3);

===
--- dscr: Allow "my" as well, RT #33937
--- failures: 0
--- params:
--- input
for my $entry (
   sort {
       my @a = split m{,}xms, $a;
       my @b = split m{,}xms, $b;
       $a[0] cmp $b[0] || $a[1] <=> $b[1]
   } qw( b,6 c,3 )
   )
{
   print;
}