use warnings;
use strict;
use Foo::Baz;


my $oFoo = Foo::Baz->new();
print "created \$oFoo=<$oFoo>\n";

print "\n**demoing default global handler**\n";
$oFoo->doA1('Ayelet (deer)');

print "\n**undefining global handler**\n";
$Foo::Bar::crHandler = undef;
$oFoo->doA2('Mayan (spring)');

print "\n**reassigning global handler to non-default sub**\n";
$Foo::Bar::crHandler = sub {
  print "$_[0]: replacement handler called\n";
};
$oFoo->doB2('Dov (bear)');