gistfile1.perl

use strict;
use Test::More;

{
    package Olive;
    use Any::Moose;
    extends 'OHAI';

    has bar => (is => 'rw', default => sub { {} });
}

{
    package OHAI;
    use Moose;

    has foo => (is => 'rw', default => sub { 1 });
}

my $olive = Olive->new();
isa_ok($olive->bar, 'HASH');