9 lines
212 B
Perl
9 lines
212 B
Perl
use strict;
|
|
$x = 1; # Compilation error.
|
|
our $y = 2;
|
|
print "$y\n"; # Legal; refers to $main::y.
|
|
|
|
package Foo;
|
|
our $z = 3;
|
|
package Bar;
|
|
print "$z\n"; # Refers to $Foo::z.
|