$Foo::var = 'foo!'; $Bar::var = 'bar!'; package Foo; our $var; package Bar; print("$var\n"); # foo!
$Foo::var = 'foo!'; $Bar::var = 'bar!'; { package Foo; our $var; } { package Bar; print("$var\n"); # bar! }
In reply to Re^6: Overridding subroutines called in private subroutines
by ikegami
in thread Overridding subroutines called in private subroutines
by skazat
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |