#!/usr/local/bin/perl -w
# atest.pl -- Zeigt die Verwendung privater Variablen an. Testprogramm

require 'apack.pl';                # Laedt diese Datei ein

print "We are in ", __PACKAGE__, "\n";    # We are in main

mypack::f1();                      # Called 1 times...
                                   # Current globvar: initvalue

$mypack::globvar = "magic";        # Ist wirklich aenderbar
mypack::f1();                      # Called 2 times...
                                   # Current globvar: magic

$mypack::globvar = "more magic";   # Ja, noch einmal aendern
mypack::f1();                      # Called 3 times...
                                   # Current globvar: more magic

print $mypack::privvar;            # FALSCH! Geht nicht!
$mypack::privvar = "overriding?";  # FALSCH! Geht auch nicht!
mypack::f1();                      # Called 4 times...
                                   # Current globvar: more magic