#!/usr/bin/perl

use strict;
use warnings;

use Test::More 'no_plan';
use Test::Exception;

{
    package Foo;
    use Mouse;

    has foo => ( is => "rw" );

    package Bar;
    sub oink { "oink" }

    package Gorch;
    use Mouse;

    extends qw(Bar Foo);

    ::lives_ok{
        has '+foo' => ( default => "the default" );
    } 'inherit attr when @ISA contains a non Mouse class before a Mouse class with the base attr';
}

{
    my $g = Gorch->new;

    is( $g->foo, "the default", "inherited attribute" );
}