#!/usr/bin/env perl
use strict;
use warnings;
use Test::More tests => 3;

package Foo;

sub new { bless {}, shift }
sub foo { 'Foo' }
sub bar { 'Foo' }
sub baz { ref(shift) }

package Foo::Mouse;
use Mouse;
use MouseX::Foreign;
extends 'Foo';

sub bar { 'Foo::Mouse' }

package main;

my $foo_moose = Foo::Mouse->new;
is($foo_moose->foo, 'Foo', 'Foo::Mouse->foo');
is($foo_moose->bar, 'Foo::Mouse', 'Foo::Mouse->bar');
is($foo_moose->baz, 'Foo::Mouse', 'Foo::Mouse->baz');