Beefy Boxes and Bandwidth Generously Provided by pair Networks
good chemistry is complicated,
and a little bit messy -LW

Re: Is this a bug in Perl scope?

by trwww (Priest)
on Jul 23, 2012 at 21:29 UTC ( [id://983238] : note . print w/replies, xml ) Need Help??

in reply to Is this a bug in Perl scope?

This behavior is documented very clearly:

perldoc -f my A "my" declares the listed variables to be local (lexically) to the enclosing block, file, or "eval".

There no such thing as a "package scope". To do what you want you'd have to use blocks:

$ perl use strict; use warnings; { package one; my $var = 1; } { package two; my $var = 5; } package main; print "$var\n"; Global symbol "$var" requires explicit package name at - line 16. Execution of - aborted due to compilation errors.

Also, FYI warnings and strict are filescoped also if they aren't in a more specific container.