#!/usr/bin/perl
use strict;
use lib '.';
use Bar;

### Before and after snapshots.
print 'var before setting:   (' . $Bar::package_variable . ")\n";
$Bar::package_variable = 'Ogopogo';
print 'var after  setting:   (' . $Bar::package_variable . ")\n";

### From an object.
my $obj = new Bar( );
print 'var from obj--unqualified: (' . $obj->{'unqualified'} . ")\n";
print 'var from obj--qualified:   (' . $obj->{'qualified'} . ")\n";

print "\nAddresses:\n";
print '$Bar::package_variable    '.\$Bar::package_variable."\n";
print '$obj->{"unqualified_ref"} '.\${$obj->{'unqualified_ref'}}."\n";
print '$obj->{"qualified_ref"}   '.\${$obj->{'qualified_ref'}}."\n";

exit;