Re^2: Is 'use vars' really obsolete?

package Foo;
our $test = 12345;
package Bar;
print $test;
__END__
12345
[download]

Comment on Re^2: Is 'use vars' really obsolete? Download Code

Replies are listed 'Best First'.
Re^3: Is 'use vars' really obsolete? by AnomalousMonk (Archbishop) on Sep 19, 2017 at 00:56 UTC
our has lexical scope. `c:\@Work\Perl\monks>perl -wMstrict -le "{ package Foo; our $test = 12345; } ;; { package Bar; print 'fully qualified: ', $Foo::test; } " fully qualified: 12345` [download] Try the statement `print 'unqualified: ', $test;` in package `Bar`. BTW: Perl 5.14 introduced the neater (IMHO) `package NAMESPACE BLOCK` syntax, so the code above could now look like `package Foo { our $test = 12345; } package Bar { print 'fully qualified: ', $Foo::test; }` [download] Update: Note that package also has lexical scope! Give a man a fish: `<%-{-{-{-<`	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re^3: Is 'use vars' really obsolete?
by AnomalousMonk (Archbishop) on Sep 19, 2017 at 00:56 UTC

our has lexical scope.

c:\@Work\Perl\monks>perl -wMstrict -le
"{ package Foo;
   our $test = 12345;
   }
 ;;
 { package Bar;
   print 'fully qualified: ', $Foo::test;
   }
"
fully qualified: 12345
[download]

print 'unqualified: ', $test;

package

Bar

BTW: Perl 5.14 introduced the neater (IMHO) package NAMESPACE BLOCK syntax, so the code above could now look like

package Foo {
    our $test = 12345;
    }

package Bar {
    print 'fully qualified: ', $Foo::test;
    }
[download]

Update: Note that package also has lexical scope!

Give a man a fish: <%-{-{-{-<

[reply]
[d/l]
[select]