Help for this page
package AA; $AA::var = __PACKAGE__; ... package BB; $BB::var = __PACKAGE__; print "$var\n"; # Prints 'AA'.
{ package AA; ... $BB::var = __PACKAGE__; print "$var\n"; # Compile error! }
www.com | www.net | www.org
No recent polls found