7 }; # Get a reference to the appropriate symbol table hash.
9 while ( ( $varName, $globValue ) = each %$rPackage ) {
10 print "$varName ============================= \n";
12 if ( defined($var) ) {
13 print "\t \$$varName $var \n";
15 if ( defined(@var) ) {
16 print "\t \@$varName @var \n";
18 if ( defined(%var) ) {
19 print "\t \%$varName ", %var, " \n";
27 %z = ( 1, 2, 3, 4, 5, 6, \@y );
29 DUMPVAR::dumpvar("Test");
31 # vim:ts=4:sw=4:expandtab:tw=80