+{
+ package AutoHlagh;
+
+ use vars qw/$AUTOLOAD/;
+
+ sub AUTOLOAD { return $AUTOLOAD }
+}
+
+cast %AutoHlagh::, $wiz;
+
+{
+ local %mg;
+
+ my $res = eval q{ AutoHlagh->autoloaded() };
+
+ is $@, '', 'stash: autoloaded method call ran fine';
+ is $res, 'AutoHlagh::autoloaded',
+ 'stash: autoloaded method call returned the right thing';
+ is_deeply \%mg, {
+ fetch => [ qw/autoloaded/ ],
+ store => [ qw/autoloaded AUTOLOAD AUTOLOAD/ ],
+ }, 'stash: autoloaded method call';
+}
+
+{
+ package AutoHlagher;
+
+ our @ISA;
+ BEGIN { @ISA = ('AutoHlagh') }
+}
+
+{
+ local %mg;
+
+ my $res = eval q{ AutoHlagher->also_autoloaded() };
+
+ is $@, '', 'stash: inherited autoloaded method call ran fine';
+ is $res, 'AutoHlagher::also_autoloaded',
+ 'stash: inherited autoloaded method returned the right thing';
+ is_deeply \%mg, {
+ fetch => [ qw/also_autoloaded AUTOLOAD/ ],
+ store => [ qw/AUTOLOAD/ ],
+ }, 'stash: inherited autoloaded method call';
+}
+
+dispell %AutoHlagh::, $wiz;
+